这 是 我 翻译 的 第 3 本 关于 Oracle PL/SQL 的 书籍 。 第 1 本 一 一 《Oracle PL/SQL 实 战 》 适 合 有 一 定 PL/SQL 基 础 的 读者 ， 省 略 了 基础 内 容 。 第 2 本 一 一 
《精通 Oracle Database 12c SQL&PL/SQL 编 程 》 主 要 讲解 Oracle SQL， 只 介绍 了 部 分 PL/SQL 基 础 知识 。 而 本 书 比 前 两 本 更 全 面 、 更 系统 ， 它 由 浅 入 
深 地 详细 讲解 PL/SQL， 基 本 上 涵盖 了 PL/SQL 开 发 各 个 方面 的 内 容 ， 包 括 最 新 的 Oracle 12c 版 本 中 新 增 和 增强 的 PL/SQL 功 能 ， 这 些 新 功能 使 得 利用 
PL/SQL 开 发 Oracle 应 用 程序 更 加 高 效 。 本 书 还 包含 大 量 可 运行 的 示例 ， 便 于 读者 理解 和 牢固 掌握 所 学 知识 。 


我 要 感谢 妻子 李 新 ， 她 主 修身 语 专 业 ， 作 为 本 书 的 第 一 读者 ， 帮 助 我 检查 出 很 多 生硬 的 译文 ， 并 把 它们 修改 得 更 加 通顺 。 她 还 承担 了 家 务 和 培养 教 
育 孩 子 的 重任 ， 使 我 可 以 专心 翻译 本 书 。 


还 要 感谢 我 的 儿子 户 令 一 ， 他 在 我 翻译 书稿 时 上 自己 安静 地 读书 和 玩 要 ， 放 人 茎 了 很 多 出 去 玩 的 机 会 ， 本 书 也 有 他 的 一 份 功劳 。 
感谢 机 械 工 业 出 版 社 的 李 艺 编辑 ， 她 对 译文 进行 把 和 天， 并 对 语言 进行 润色 ， 使 本 书 可 读 性 更 好 。 


希望 本 书 能 帮助 读者 提高 Oracle PL/SQL 开 发 水 平 。 由 于 译 者 经 验 和 水 平 有 限 ， 译 文中 难免 有 不 受 之 处 ， 奶 请 读者 批评 指正 ! 


本 书 用 一 种 独特 的 风格 介绍 了 Oracle 的 PL/SQL 程 序 设 计 语 言 。 它 促使 你 通过 使 用 Oracle PL/SQL， 而 不 只 是 通过 阅读 来 学 习 它 。 

正如 语法 手册 通过 首先 展示 名 词 和 动词 的 示例 ， 然 后 要 求 你 写 句子 来 讲解 它们 ， 本 书 也 通过 首先 展示 游标 、 循 环 、 过 程 、 触 友 器 等 的 示例 ， 要 求 你 
目 己 创建 这 些 对 象 来 讲解 它们 。 
本 书 的 目标 读者 

本 书 是 为 那些 需要 快速 地 详细 了 解 Oracle 的 PL/SQL 语 言 编 程 的 人 员 准 备 的 。 理 想 的 读者 是 那些 具有 以 下 条 件 的 人 员 : 他 们 有 某 些 关 系数 据 库 的 经 
验 ， 具 有 一 定 的 Oracle 经 验 ， 特别 是 SQL、SQL*Plus 和 SQL Developer， 但 对 于 PL/SQL 或 大 多 数 其 他 编程 语言 只 有 很 少 的 经 验 或 根本 没有 经 验 。 


本 书 的 内 容 主 要 基于 纽约 市 哥伦比亚 大 学 计算 机 技术 与 应 用 (СТА) 项 目的 PL/SQL 导 论 课程 教学 素材 。 学 生 的 层次 是 相当 不 同 的 ， 因 为 有 一 些 学 生 
具有 多 年 的 信息 技术 (IT) 和 编程 经 验 ， 但 没有 Oracle PL/SQL 方 面 的 经 验 ， 还 有 一 些 学 生 则 完全 没有 IT 或 编程 经 验 。 与 这 门 课 一 样 ， 本 书 内 容 兼 顾 了 这 
两 种 极端 的 需求 。 配 套 网 站 上 的 补充 练习 可 以 作为 讲解 这 样 一 门 PL/SQL 课 程 的 配套 实验 和 家 庭 作 业 。 


本 书 的 组 织 结构 


本 书 革 在 首先 通过 解释 编程 概念 或 特定 的 PL/SQL 功 能 ， 然 后 通过 示例 进一步 说 明 它 来 教会 你 使 用 Oracle PL/SQL。 通 常情 况 下 ， 当 讨论 更 深入 的 主 
题 时 ， 这 些 示 例 将 被 修改 ， 以 说 明 新 涉及 的 内 容 。 此 外 ， 本 书 的 大 多 数 草 节 都 具有 可 在 配套 网 站 获得 的 补充 练习 部 分 。 这 些 练习 可 以 帮助 你 测试 对 新 内 
容 的 理解 程度 。 


每 章 的 基本 结构 都 如 下 : 


目标 


目标 部 分 列 出 此 章 所 包含 的 主题 。 基 本 上 每 个 目标 都 对 应 于 一 个 实验 。 
简介 提供 该 章 涉 及 的 概念 和 功能 的 简要 概述 。 


每 个 实验 都 涵盖 了 在 该 章 的 目标 部 分 列 出 的 一 个 目标 。 在 一 些 情况 下 ， 在 实验 中 ， 目 标 被 进一步 分 解 为 更 小 的 单个 主题 。 然 后 每 个 这 样 的 主题 都 借 
助 示例 和 相应 的 输出 来 说 明和 展示 。 需 要 注意 的 是 ， 每 个 示例 都 尽 可 能 完整 地 提供 ， 这 使 得 其 代码 是 现成 可 用 的 。 


每 草 最 后 都 有 一 个 忌 结 ， 它 对 此 章 讨论 的 内 容 进行 了 简要 忆 结 。 此 外 ，“ 上 顺便 说 说 ”部 分 会 说 明 某 个 特定 章节 是 人 否 有 配套 网 站 上 的 补充 练习 。 


天 于 配套 网 站 


配套 网 站 位 于 informit.comytitle/0133796787。 你 会 在 那里 发 现 三 项 非常 重要 的 内 容 : 
. 创建 和 安装 STUDENT 模式 所 需要 的 文件 。 
包含 本 书 各 章 使 用 的 示例 脚本 的 文件 。 
` 补充 练习 的 章节 ， 其 中 有 两 部 分 : 


“ 问 与 答 ” 部 分 ， 其 中 包含 某 个 特定 的 章 所 介绍 内 容 的 相关 问题 ， 以 及 这 些 问题 的 参考 答案 。 通 常情 况 下 ， 要 求 你 基于 一 些 需求 修改 一 个 肢 


本 ， 并 解释 这 些 修改 造成 的 输出 差异 。 请 注意 ， 这 部 分 也 被 组 织 成 与 书 中 的 相应 章节 类 似 的 实验 。 


“ 试 一 试 ” 部 分 ， 要 求 你 根据 给 定 的 需求 来 创建 脚本 。 此 部 分 与 “ 问 与 答 ” 部 分 不 同 ， 没 有 给 这 些 问 题 提供 任何 脚本 。 相 反 ， 你 需要 自己 创建 
全 部 脚本 。 


顺便 况 况 


如 果 想 执行 各 章节 和 网 站 上 提供 的 脚本 ， 需 要 在 使 用 本 书 之 前 访问 配套 网 站 ， 下 载 student 模 式 ， 并 将 其 安装 在 数据 库 中 。 


先决 条 件 


完成 本 书 中 的 实验 既 需 要 有 软件 程序 ， 也 需要 有 必要 的 知识 。 需 要 注意 的 是 ， 本 书 涉及 的 一 些 功能 只 适用 于 Oracle 12c。 但 是 ， 只 要 利用 下 列 产 
品 ， 融 能 够 运行 绝 大 部 分 的 示例 并 完成 补 苑 练习 和 “ 试 一 坛 ” 部 分 : 


· Oracle 11g 或 更 高 版 本 。 
· SQL Developer 或 SQL*Plus 11g 或 更 高 版 本 。 
‚ 接 入 互联 网 。 


你 可 以 使 用 Oracle 个 人 版 或 Oracle 企 业 版 来 执行 本 书 的 示例 。 如 果 你 使 用 Oracle 企 业 版 ， 则 可 以 在 一 台 远 程 服务 器 或 自己 的 本 地 机 器 上 运行 。 建 议 
你 使 用 Oracle 11g 或 Oracle 12C， 以 便 执行 本 书 全 部 或 大 部 分 的 示例 。 当 某 个 功能 仅 适 用 于 Oracle 数 据 库 的 最 新 版 本 时 ， 本 书 会 明确 地 说明 。 此 外 ， 你 
应 该 能 够 使 用 并 熟悉 SQL Developer 或 SQL*Plus。 


关于 如 何在 SQL Developer 或 SQL*Plus 中 编辑 和 运行 脚本 有 许多 选择 。 也 有 许多 可 用 来 编辑 和 调试 PLUSQL 代 码 的 第 三 方程 序 。 本 书 中 同时 采用 了 
SQL Developer 和 SQL*Plus 来 说 明 ， 因 为 这 两 者 都 是 Oracle 提 供 的 工具 ， 并 作为 Oracle 安 六 的 一 部 分 提供 。 


顺便 况 况 


第 1 章 具 有 名 为 “PLVSQL 开 发 环境 ”这样 一 个 实验 ， 它 介绍 了 如 何 开 始 使 用 SQL Developerf 和 SQL#*Plus。 然 而 ， 本 书 使 用 的 绝 大 多 数 示例 都 在 SQL 
Developet 中 执行 。 


天 于 示例 模式 


STUDENT 模式 包含 表 和 其 他 对 象 ， 用 来 保存 一 个 虚构 大 学 的 注册 和 登记 系统 的 相关 信息 。 系 统 中 有 10 个 表 ， 分 别 存 储 学 生 、 课 程 、 教 师 等 的 相关 数 
据 。 除 了 存储 学 生 和 教师 的 联系 信息 (地 址 和 电话 号 码 ) ， 以 及 有 关 课 程 的 描述 性 信息 (费用 和 先决 课程 ) 之 外 ， 本 模式 还 记录 特定 课程 的 课 班 
(section) ， 以 及 学 生 已 经 就 读 的 课 班 。 


SECTION 表 是 在 本 模式 中 最 重要 的 表 之 一 ， 因 为 它 人 存储 有 关 已 为 每 门 课程 创建 的 各 个 课 班 的 数据 。 每 个 课 班 记 录 还 存储 此 课 班 在 哪里 及 何 时 上 课 ， 
以 及 哪 位 教师 会 教授 此 课 班 的 信息 。SECTION 表 与 COURSE 和 INSTRUCTOR 表 相关 。 


ENROLLMENT 表 是 同样 重要 的 ， 因 为 它 记 录 哪些 学 生 就 读 于 哪些 课 班 。 每 个 入 学 记录 还 存储 有 关 学 生 的 成 绩 和 注册 日 期 信息 。ENROLLMENT 表 与 
STUDENT 和 SECTION 表 相关 。 


STUDENT 模式 还 有 其 他 几 个 表 来 管理 在 每 个 课 班 中 的 每 个 学 生 的 成 绩 。 


STUDENT 模式 的 详细 结构 参见 附录 B。 


Oracle 12c PL/SQL 新 特性 简介 


Oracle 12c 已 经 为 PL/SQL3 引 入 了 许多 新 特性 和 改进 。 这 里 简要 介绍 了 未 在 本 书 中 讨论 的 特性 ， 并 指出 了 本 书 涉及 的 特性 所 在 的 具体 章节 。 在 作为 
Oracle 联 机 帮助 的 一 部 分 提供 的 《PL/SQL Language Reference》 手 册 的 “Changes in This Release for Oracle Database PL/SQL Language 
Reference” 一 节 也 可 找到 这 里 描述 的 特性 清单 。 


PL/SQL 的 新 特性 和 改进 如 下 : 
- 调用 者 权限 函数 可 缓存 结果 。 
. PL/SQL 独 有 的 更 多 数据 类 型 可 以 跨越 PL/SQL 到 SQL 的 接口 子 句 。 
. ACCESSIBLE BY F 8). 
- FETCH FIRST 8) o 
. 可 将 角色 授予 PL/SQL 包 和 独立 子 程 序 。 
` 更 多 的 数据 类 型 在 SQL 和 PL/SQL 中 具有 相同 的 最 大 大 小 。 
可 插 拔 数据 库 上 的 数据 库 触 发 器 。 
. LIBRARY 可 定义 为 DIRECTORY 对 象 ， 并 可 带 有 CREDENTIAL 子 钨 。 
` 隐 式 语句 结果 。 
- BEQUEATH CURRENT_USER 视 图 。 
. INHERIT PRIVILEGES 和 INHERIT ANY PRIVILEGES 特 权 。 
: 不 可 见 列 。 
对象， 而 不 是 类 型 ， 是 有 版 次 或 无 版 次 的 。 
- 在 SQL 中 运行 得 更 快 的 PLVSQL 函 数 。 
- 预定 义 的 查询 指令 $$PLSQL_UNIT_OWNER 和 $$PLSQL_UNIT_TYPE。 


. 编译 参数 PLSQL_DEBUG 已 弃 用 。 


调用 者 权限 消 数 可 缓存 结果 


在 Oracle 产 品 中 创建 存储 子 程序 时 ， 可 把 它 创 建 为 定义 者 权限 (Definer Right, DR) 单元 或 调用 者 权限 (Invoker Right, IR) 单元 。DR 单 元 将 以 
其 所 有 者 的 权限 执行 ， 而 IR 单 元 将 以 调用 该 特定 单元 的 用 户 权 限 执行 。 默 认 情况 下 ， 除 非 明确 指定 ， 否 则 仓储 子 程序 都 将 创建 为 DR 单元 。 一 个 特定 单元 
是 被 当 作 DR 还 是 IR 单 元 由 AUTHID 属 性 来 控制 ， 此 属性 可 以 设置 为 DEFINER (默认 ) 或 CURRENT_USER。 


在 Oracle 12c 之 前 ， 使 用 调用 者 权限 子 句 (AUTHID CURRENT_USER) 创建 的 函 数 不 能 缓存 结果 。 要 创建 作为 |R 单 元 的 函数 ， 必 须 把 AUTHID 子 名 
添加 到 函数 规 学 中 。 


结果 缓 仔 阔 数 是 其 参数 值 和 结果 都 仓储 在 缓存 中 的 函数 。 因 此 ， 使 用 相同 的 参数 值 来 调用 这 样 的 函数 时 ， 其 结果 是 从 缓存 中 提取 的 ， 而 不 是 重新 计 


算 的 。 要 对 采 个 函数 局 用 结果 缓 仔 ， 必 须 把 RESULT_CACHE 子 句 添加 到 阔 数 规范 中 ， 如 以 下 例子 所 示 (调用 者 权限 子 句 和 结果 缓存 子 句 以 粗 体 突出 显 


7R) o 
示例 “以 调用 者 权限 创建 的 结果 缓 仓 国 数 


CREATE OR REPLACE FUNCTION get student гес (р student іа IN NUMBER) 
RETURN STUDENT%ROWTYPE 
AUTHID CURRENT USER 


RESULT CACHE RELIES ON (student) 
IS 
v student гес STUDENT%ROWTYPE; 
BEGIN 
SELECT * 
INTO v student тес 
FROM student 
WHERE student id = p student id; 


RETURN у student rec; 
EXCEPTION 
WHEN по data found 
THEN 
RETURN NULL; 
END get student гес; 


/ 
-- 执行 新 创建 的 函数 
DECLARE 
Vv_student гес STUDENT%ROWTYPE.; 
BEGIN 
у student гес := get student гес (р Student id => 230); 
END; 


请 注意 ， 如 果 学 生 ID 为 230 的 学 生 记录 已 经 在 结果 缓存 中 ， 那 么 此 函数 将 从 结果 缓 仓 返 回 学 生 记 录 。 在 相反 的 情况 下 ， 将 从 STUDENT 表 选 择 该 学 生 
记录 并 将 其 添加 到 缓存 以 供 将 来 使 用 。 因 为 函数 的 结果 缓存 依 赖 于 STUDENT 表 ， 所 以 对 STUDENT 表 实 施 并 提交 的 任何 修改 都 会 使 get student _rec 国 数 
的 所 有 缓存 结果 变 得 无 效 。 


PL/SQL 独 有 的 更 多 数据 类 型 可 以 跨越 PL/SQL 到 SQL 的 接口 子 句 


在 此 版 本 中 ，Oracle 已 经 在 动态 SQL 和 客户 端 程序 (OCI 或 者 JDBC) 中 扩展 了 对 PL/SQL 独 有 的 数据 类 型 的 支持 。 例 如 ， 可 以 在 使 用 EXECUTE 
IMMEDIATE 语 句 或 OPEN FOR、FETCH 和 CLOSE 语句 时 绑 定 集合 变量 。18.3 节 对 本 主题 进行 了 更 详细 的 介绍 。 


ACCESSIBLE BY 子 句 


可 选 的 ACCESSIBLE BY 子 句 允许 指定 可 访问 正在 创建 或 修改 的 PL/SQL 单 元 的 PL/SQL 单 元 列表 。ACCESSIBLE BY 子 句 通常 被 加 入 到 模块 头 部 ， 例 
如 ， 上 函数 或 过 程 头 部 。 在 ACCESSIBLE BY 子 句 中 列 出 的 每 个 单元 都 称 为 访问 器 ， 而 该 子 句 本 身 也 称 为 白 名 单 ， 如 以 下 例子 所 示 (ACCESSIBLE BY 子 句 以 
粗 体 显示 ) 。 


示例 “使 用 ACCESSIBLE BY 子 句 创建 的 存储 过 程 


СКЕАТЕ ОК REPLACE PROCEDURE test procl 
ACCESSIBLE BY (TEST РКОС2) 
AS 
BEGIN 
DBMS OUTPUT.PUT LINE ('TEST РКОС1!); 


END test proci; 
/ 


CREATE OR REPLACE PROCEDURE test proc2 
AS 
BEGIN 
DBMS OUTPUT.PUT LINE ('TEST_PROC2'); 
севс ргосі; 
END test ргос2; 


/ 
-- 执行 TEST_PROC2 
BEGIN 

test ргос2; 
END; 
/ 


TEST_PROC2 
TEST_PROC1 


-- 直接 执行 TEST РКОС1 
ВЕСІМ 
cest proci; 
END; 
/ 


ОВА- 06550: line 2, column 4: 
Р15-00904: insufficient privilege to access object TEST PROC1 


ОВА-06550: line 2, column 4: 
PL/SQL: Statement ignored 


在 此 示例 中 ， 有 两 个 过 程 ，test proc1 和 test ргос2, #Нїеѕї proc1 是 使 用 ACCESSIBLE BY 子 句 创建 的 。 其 结果 是 ，test proc1 只 能 由 test ргос2 
访问 。 这 由 两 个 匿名 PLM/SQL 块 体现 。 第 一 个 块 执行 test_proc2 成 功 。 第 二 个 块 试图 直接 执行 test_proc1， 但 其 结果 出 错 。 


请 注意 ， 这 两 个 过 程 都 是 在 单个 模式 (STUDENT) 中 创建 的 ， 并 且 这 两 个 PL/SQL 块 都 是 在 所 有 者 (STUDENT) 的 单个 会 话 中 执行 的 。 
FETCH FIRST 子 句 


FETCH FIRST 子 句 是 一 个 新 的 可 选 特性 ， 它 通常 用 在 “前 N 个 ”查询 中 ， 如 以 下 例子 所 示 。 本 例 使 用 的 ENROLLMENT (登记 ) 表 包 含 学 生 注册 数 
据 。 每 名 学 生 都 是 通过 一 个 唯一 的 学 生 1D 标 识 的 ， 并 可 注册 多 个 课程 。FETCH FIRST 子 句 以 粗 体 显示 。 


示例 ”使 用 FETCH FIRST 子 句 进行 “前 N 个 ”查询 
-- 来 自 ENROLLMENT 表 的 学 生 ID 样本 


SELECT student іа 
FROM enrollment; 


STUDENT ID 


Оз 
104 
БО» 
106 
106 
107 
108 
109 
109 
110 
EIO 


--“ 前 N 个 ”查询 返回 注册 课程 最 多 的 前 5 名 学 生 的 学 生 ID 
-- courses 
SELECT student id, COUNT (*) courses 
FROM enrollment 
GROUP BY student id 
ORDER BY courses desc 


FETCH FIRST 5 ROWS ONLY; 


STUDENT ID COURSES 


请 注意 FETCH FIRST 子 句 也 可 与 BULK COLLECT INTO 子 句 结合 使 用 ， 如 下 所 示 。FETCH FIRST 子 句 以 粗 体 显示 。 


示例 将 FETCH FIRST 子 句 与 BULK COLLECT INTO 子 句 结 合 使 用 


DECLARE 
ТҮРЕ student пате tab IS TABLE OF VARCHAR2 (100) INDEX BY PLS INTEGER; 


student_names student_name_tab; 
GEHEN 


-- Kik ЖТ 20 名 学 生 

SELECT first папе | |' '||last пате 
BULK COLLECT INTO student names 
FROM student 

FETCH FIRST 20 ROWS ONLY; 


DBMS OUTPUT.PUT LINE ('There are '||student names .COUNT||' students'); 
END; 
/ 


There are 20 students 


可 将 角色 授予 PL/SQL 程 序 包 和 独立 子 程序 


从 Oracle 12c 开 始 ， 可 以 将 角色 授予 PL/SQL 包 和 独立 子 程序 。 需 要 注意 的 是 ， 将 一 个 角色 授予 PL/SQL 包 或 独立 子 程序 不 改变 其 编译 。 相 反 ， 它 会 影 
响 由 PL/SQL 单 元 在 运行 时 发 出 的 SQL 语 句 所 需 权限 的 检查 方式 。 


考虑 以 下 例子 ， 其 中 READ 角 色 被 授予 get_student_name 函 数 。 
示例 ”将 READ 角 色 授 予 get student name 为 数 


GRANT READ TO FUNCTION get student пате; 


更 多 的 数据 类 型 在 SQL 和 PL/SQL 中 具有 相同 的 最 大 大 小 


在 Oracle 12c 之 前 ， 某 些 数据 类 型 在 SQL 和 PL/SQL 中 有 不 同 的 最 大 大 小 。 例 如 ，NVARCHAR2 在 SQL 中 的 最 大 大 小 是 4000 字 节 ， 而 在 PL/SQL 中 是 
32767 字 节 。 从 Oracle 12c 开 始 ，VARCHAR2、NVARCHAR2 和 RAW 数据 类 型 在 SQL 和 PLSQL 中 的 最 大 大 小 都 已 经 扩展 到 了 32767 字 节 。 要 在 SQL 中 使 
用 这 些 最 大 大 小 ， 初 始 化 参数 MAX STRING SIZE 必须 设置 为 EXTENDED。 


可 揪 拔 数据 库 上 的 数据 库 触 友 器 


可 插 拔 数据 库 (РОВ) 是 Oracle 的 多 租户 架构 的 组 成 部 分 之 一 。 通 常 它 是 可 移植 的 模式 和 其 他 数据 库 对 象 的 一 个 集合 。 从 Oracle 12c 开 始 ， 可 以 在 
PDB 上 创建 事件 触发 器 。 触 发 器 的 详细 信息 是 在 第 13 章 和 第 14 章 提供 的 ， 请 注意 ，PDB 是 在 本 书 范围 之 外 的 ， 但 它们 的 详细 信息 可 在 Oracle 的 联机 
《Administration Guide》 (管理 指南 ) 中 找到 。 


LIBRARY 可 定义 为 DIRECTORY 对 象 ， 并 可 带 有 CREDENTIAL 子 句 


LIBRARY ( 库 ) 是 与 操作 系统 的 共享 库 相 关联 的 模式 对 象 。 它 是 在 CREATE OR REPLACE LIBRARY 语 句 的 帮助 下 创建 的 。 


DIRECTORY (目录 ) 也 是 将 一 个 别名 映射 到 服务 器 文件 系统 的 实际 目录 上 的 对 象 。 第 25 章 很 简要 地 提 及 了 DIRECTORY 对 象 ， 这 是 作为 PL/SQL 齐 析 
器 API 和 PL/SQL 层 次 式 剖 析 器 安装 过 程 的 一 部 分 介绍 的 。 在 Oracle 12c 版 本 中 ，LIBRARY 对 象 可 以 定义 为 一 个 珊 有 可 选 CREDENTIAL 子 句 的 DIRECTORY 
对 象 ， 如 下 所 示 。 


示例 把 LIBRARY 创 建 为 DIRECTORY 对 象 


CREATE OR REPLACE LIBRARY my lib AS 'plsql code' IN my dir; 


在 本 例 中 ，LIBRARY 对 象 my lib 被 创建 为 DIRECTORY 对 象 。'plsql code' 是 DIRECTORY 对 象 my dir 中 的 动态 链接 库 (DDL) 的 名 称 。 请 注意 ， 要 成 
功 地 创建 这 个 库 ， 必 须 预先 创建 DIRECTORY 对 象 my dir。LIBRARY 和 DIRECTORY 对 象 的 详细 信息 可 以 在 Oracle 的 联机 《Database PL/SQL Language 
Reference》 (数据 库 PL/SQL 语 言 参 考 ) 中 找到 。 


隐 式 语句 结果 


{Oracle 12c 版 本 之 前 ，SQL 查 询 的 结果 集 是 通过 REF CURSOR 输 出 参数 从 存储 的 PL/SQL 子 程序 明确 地 返回 的 。 其 结果 是 ， 调 用 者 程序 必须 绑 定 到 
ВЕЕ CURSOR 人 参数 并 明确 地 提取 结果 集 。 


从 此 版 本 开始 ，REF CURSOR 输 出 参数 可 以 由 DBMS SQL 包 的 两 个 过 程 ，RETURN _RESULT 和 GET NEXT RESULTI'] 来 代替 。 这 些 过 程 使 能 存储 的 
PL/SQL 子 程序 隐 式 地 返回 SQL 查询 的 结果 集 ， 如 下 例 所 示 (对 RETURN RESULT 过 程 的 引用 以 粗 体 突出 显示 ) : 


示例 “使 用 DBMS SQL.RETURN_RESULT 过 程 


CREATE OR REPLACE PROCEDURE test return result 


AS 
v cur SYS REFCURSOR; 
BEGIN 
OPEN v cur 
FOR 


SELECT first_name, last пате 
FROM instructor 
FETCH FIRST ROW ONLY; 


DBMS SQL.RETURN RESULT (v cur); 
END test _ return result; 


/ 


BEGIN 

cest return result 
END; 
/ 


在 本 例 中 ，test return_result 过 程 将 教师 的 名 字 和 姓氏 隐 式 地 返回 客户 端 应 用 程序 。 需 要 注意 的 是 ， 游 标 SELECT 语 名 使 用 了 FETCH FIRST ROW 
ONLY 子 句 ， 这 也 是 在 Oracle 12c 中 引入 的 。 要 成 功 地 从 test return_result 过 程 获得 结果 集 ， 客 户 端 应 用 程序 必须 同样 升级 到 Oracle 12c。 否 则 ， 它 将 
返回 以 下 错误 消息 : 

ОКА-29481: Implicit results cannot be returned to client. 
ORA-06512; аё "TSIS: DBMS 501", line 2785 
ORA- 06512: ar "5Ү5.рВвМ5 501", line 2779 


ОРА- 06512: аі "STUDENT .TEST REIURN RESULT", line 10 
ORA-06512: at line 2 


BEQUEATH CURRENT _USER 视 图 


在 Oracle 12c 中 ， 视 图 只 可 以 创建 为 定义 者 权限 单元 。 从 12c 版 本 开始 ， 视 图 也 可 以 创建 为 一 个 调用 者 权限 单元 (这 类 似 于 存储 子 程序 的 AUTHID 属 
№) 。 但 是 ， 对 于 视图 ， 这 种 行为 是 通过 在 创建 它 的 时 候 指定 BEQUEATH DEFINER (默认 值 ) 或 BEQUEATH CURRENT_USER 子 句 达成 的 ， 如 以 下 例 
子 所 示 (BEQUEATH CURRENT_USER 子 句 以 粗 体 显示 ) : 


示例 ”使 用 BEQUEATH CURRENT USER 子 句 创建 视图 


CREATE OR REPLACE VIEW my view 
BEQUEATH CURRENT USER 
AS 


SELECT table name, status, partitioned 
FROM user tables; 


在 本 例 中 ，my _view 创 建 为 |R 单 元 。 请 注意 ， 将 这 个 属性 添加 到 视图 中 并 不 影响 它 的 主要 有 用途。 相反 ， 类 似 于 AUTHID 属 性 ， 它 确定 从 该 视图 选择 数 
据 的 时 候 将 应 用 哪 组 权限 。 


INHERIT PRIVILEGES (继承 特权 ) 和 INHERIT АМҮ PRIVILEGES (继承 任何 特权 ) 特权 


从 Oracle 12c 开 始 ， 只 有 当 革 个 调用 者 权限 单元 的 所 有 者 具有 INHERIT PRIVILEGES 或 INHERIT АМҮ PRIVILEGES 特 权时 ， 该 单元 才 会 以 调用 者 的 
权限 执行 。 例 如 ， 在 Oracle 12c 之 前 ， 假 设 user1 把 一 个 冰 数 F1 创 建 为 一 个 调用 者 权限 单元 ， 并 把 对 它 执行 的 权限 授予 正好 有 比 user1 更 多 特权 的 用 户 
User2。 然 后 ， 当 user2 运 行 F1 函 数 时 ， 该 函数 将 以 user2 的 权限 运行 ， 这 可 能 会 执行 user1 也 许 没 有 权限 执行 的 操作 。 在 Oracle 12c 中 ， 情 况 已 不 再 是 这 
样 。 如 前 所 述 ， 这 样 的 行为 必须 明确 地 通过 INHERIT PRIVILEGES 或 INHERIT АМҮ PRIVILEGES 特 权 来 指定 。 


不 可 见 列 


从 Oracle 12c 开 始 ， 可 以 定义 和 操作 不 可 见 列 。 在 PL/SQL 中 ， 定 义 为 %ROWTYPE 的 记录 能 意识 到 这 样 的 列 ， 如 以 下 例子 所 示 (对 不 可 见 列 的 引用 
以 粗 体 显示 ) : 


示例 %ROWTYPE 记 录 和 不 可 见 列 


-- 使 NUMERIC _GRRDE 列 不 可 见 

ALTER TABLE grade MODIFY (numeric _ grade INVISIBLE) ; 
/ 

table GRADE altered 


DECLARE 
v_grade_rec grade%šROWTYPE; 
BEGIN 
SELECT * 
INTO v grade гес 
FROM grade 
FETCH FIRST ROW ONLY; 


DBMS OUTPUT.PUT LINE ('student ID: '||v_ grade rec.student id); 

DBMS OUTPUT.PUT LINE ('section ID: '||v grade rec.section id); 

-- 引用 不 可 见 列 将 导致 出 错 

DBMS OUTPUT .PUT LINE ('grade: [|у grade rec.numeric grade); 
END; 


/ 

ORA-06550: line 12, column 54: 

PLS-00302: component 'NUMERIC GRADE' must be declared 
ORA-06550: line 12, column 4: 

PL/SQL: Statement ignored 


-- {Ë NUMERIC GRADE Ў! 5] 4L 
ALTER TABLE grade MODIFY (numeric grade VISIBLE); 
/ 


table GRADE altered 


DECLARE 
у grade гес grade%ROWTYPE; 
BEGIN 
SELECT * 
ІМТО у grade гес 
FROM grade 


FETCH FIRST ROW ONLY; 


DBMS OUTPUT .PUT LINE ('student ID: '||у grade rec.student id); 
DBMS OUTPUT.PUT LINE ('section ID: '||у grade rec.section іа); 
-- 这 一 次 脚本 执行 成 功 
DBMS OUTPUT.PUT LINE ('grade: ' | |v grade rec.numeric grade); 
END ; 
/ 


student Ір: 123 
section Ір: 87 
grade: 99 


正如 这 个 例子 所 展示 的 ， 由 于 引用 了 不 可 见 列 ， 匿 名 PL/SQL 块 的 第 一 次 运行 未 能 完成 。 一 旦 再 次 把 NUMERIC GRADE 列 设置 为 可 见 ， 脚 本 就 能 够 
成 功 完 成 。 


对 象 ， 而 不 是 类 型 ， 是 有 版 次 或 无 版 次 的 


版 本 是 基于 版 本 的 重 定 义 功能 的 一 个 组 成 部 分 ， 这 种 功能 允许 你 创建 对 象 的 一 个 副本 (例如 ，PL/SQL 包 ) ， 并 对 它 进行 更 改 ， 而 不 影响 可 能 依赖 于 
它 的 其 他 对 象 或 使 乙 无 效 。 随 着 此 功能 的 引入 ， 在 数据 库 中 创建 的 对 象 可 以 定义 为 有 版 次 或 无 版 次 的 。 对 于 有 版 次 的 对 象 ， 其 对 象 类 型 必须 是 有 版 次 
的 ， 它 必须 有 EDITIONABLE 属 性 。 同 样 ， 对 于 无 版 次 的 对 象 ， 其 对 象 类 型 必须 是 无 版 次 的 或 者 它 必 须 有 NONEDITIONABLE 属 性 。 


从 Oracle 12c 开 始 ， 你 能 够 在 CREATE OR REPLACE 和 ALTER 语 句 中 指定 某 个 模式 对 象 是 有 版 次 的 或 无 版 次 的 。 在 这 个 新 版 本 中 ， 已 启用 版 次 的 用 
P (模式 ) ， 即 使 它 在 数据 库 中 的 类 型 是 有 版 次 的 ， 但 只 要 在 模式 本 身 中 的 类 型 是 无 版 次 的 或 如 果 此 对 象 具 有 NONEDITIONABLE 属 性 ， 它 就 能 够 拥有 
一 个 无 版 次 对 象 。 


在 SQL 中 运行 得 更 快 的 PLUSQL 函 数 
从 Oracle 12c 开 始 ， 可 以 在 SQL 语句 中 创建 调用 时 可 能 运行 得 更 快 的 用 户 定义 的 国 数 。 这 可 以 用 如 下 方法 完成 : 
-在 SELECT 语句 的 WITH 子 多 中 声明 用 户 定 义 的 函数 。 
使 用 UDF 编 译 指示 创建 用 户 定义 的 函数 。 
考虑 下 面 的 示例 ， 其 中 的 format_name 国 数 是 在 SELECT 语句 的 WITH 子 句 中 创建 的 。 这 个 新 创建 的 函数 返回 格式 化 的 学 生 姓名 。 
示例 在 WITH 子 句 中 创建 一 个 用 户 定义 的 函数 


WITH 
FUNCTION format name (р salutation ІМ VARCHAR2 
‚р first name ІМ VARCHAR2 
‚р last name IN VARCHAR2) 


RETURN VARCHAR2 
IS 
BEGIN 
IF p salutation IS NULL 
THEN 
RETURN p first name||' '||p last name; 
ELSE 
RETURN p salutation||' '||p first name||' '||p last name; 
END IF; 
END; 
SELECT format пате (salutation, first_name, last_name) student name 
FROM student 
FETCH FIRST 10 ROWS ONLY; 


STUDENT NAME 

Mr. George Kocka 
Ms. Janet Jung 

Ms. Kathleen Mulroy 
Mr. Joel Brendler 
Mr. Michael Carcia 
Mr. Gerry Tripp 

Mr. Rommel Frost 
Mr. Roger Snow 

Ms. Z.A. Scrittorale 
Mr. Joseph Yourish 


接 下 来 ， 考 虑 用 UDF 编 译 指示 创建 format_ патер #Н%55——1°лЙЇ„ 


示例 ”在 UDF 编 译 指 示 中 创建 一 个 用 户 定 义 的 浮 数 


CREATE OR REPLACE FUNCTION format пате (р salutation ІМ VARCHAR2 
‚р Ёігѕ пате ІМ VARCHAR2 


‚р last name ІМ VARCHAR2) 
RETURN VARCHAR2 ш ШЕ 


А5 
PRAGMA UDF; 
BEGIN 
IF p salutation IS NULL 
THEN 
RETURN р first_name||' '||p last name; 
ELSE 
RETURN р salutation||' '||p first name||' '||p last name; 
END ТЕ; 
END; 
/ 
SELECT format name (salutation, first name, last name) student name 
FROM student 
FETCH FIRST 10 ROWS ONLY; 


STUDENT NAME 


Mr. George Kocka 
Ms. Janet Jung 

Ms. Kathleen Mulroy 
Mr. Joel Brendler 


Mr. Michael Carcia 
Mr. Gerry Tripp 

Mr. Rommel Frost 

Mr. Roger Snow 

Ms. Z.A. Scrittorale 


预定 义 的 查询 指令 $$PLSQL UNIT OWNER 和 $$PLSQL_ UNIT ТҮРЕ 


在 PL/SQL 中 ， 有 大 量 预定 义 的 查询 指令 ， 如 下 表 所 述 (为 了 强调 ，$$PLSQL UNIT OWNER 和 $$PLSQL UNIT_TYPE 以 粗 体 显示 ) : 


名 ж 说 有明 
$$PLSQL LINE 它 是 出 现在 PL/SQL 子 程 序 中 的 代码 行 的 编号 
$$PLSQL UNIT PL/SQL 子 程 序 的 名 称 。 对 于 匿名 PL/SQL H, CREN NULL 


12c 版 本 中 新 增 的 指令 。 它 是 PL/SQL 子 程序 的 所 有 者 (模式 )。 对 于 
匿名 PL/SQL 块 ， 它 设置 为 NULL 

12c 版 本 中 新 增 的 指令 。 它 是 PL/SQL 子 程序 的 类 型 一 一 例如 ， 
FUNCTION, PROCEDURE 或 PACKAGE BODY 


$$PLSQL UNIT OWNER 


$$PLSQL UNIT TYPE 


一 组 PL/SQL 编译 参数 ， 其 中 有 些 是 PLSQL_CODE_TYPE， 它 指定 
$$plsql compilation parameter |PL/SQL 了 于 程序 的 编译 模式 。 而 男 外 一 些 是 PLSQL _OPTIMIZE LEVEL 
(将 在 第 25 章 探 讨 ) 
下 面 的 示例 演示 了 指令 的 可 能 用 法 。 


示例 ”使 用 预定 义 的 查询 指令 


CREATE OR REPLACE PROCEDURE test directives 


AS 

BEGIN 
DBMS OUTPUT .PUT LINE ('Procedure test directives'); 
DBMS OUTPUT.PUT LINE ('$$PLSQL UNIT OWNER: '||$$PLSQL UNIT OWNER).; 
DBMS OUTPUT .PUT LINE ('$$PLSQL UNIT ТҮРЕ: '||$$PLSQL UNIT ТҮРЕ); 
DBMS OUTPUT .PUT 1ІМЕ ('$$Р1Ь501, UNIT: ' | | $$PLSQL UNIT) ; 
DBMS OUTPUT .PUT LINE ('$$PLSQL LINE: ' | | $$PLSQL LINE) ; 

END; 

/ 

BEGIN 


-- 执 行 TEST DERECTIVES 过 程 
test directives; 
DBMS OUTPUT.PUT LINE ('Anonymous PL/SQL block'); 


DBMS _ OUTPUT .PUT LINE ('$$PLSQL UNIT _ OWNER: '||$$PLSQL UNIT OWNER) ; 
DBMS OUTPUT .PUT LINE ('$$PLSQL UNIT ТҮРЕ: '||$$PLSQL UNIT ТҮРЕ); 
DBMS OUTPUT .PUT LINE ('$$PLSQL UNIT: '||$$PLSQL UNIT) ; 
DBMS OUTPUT.PUT LINE ('$$PLSQL LINE: ' | |$$PLSQL LINE) ; 

END; 


/ 


Procedure test directives 

ŞŞPLSQL UNIT OWNER: STUDENT 
$$PLSQL UNIT ТҮРЕ: PROCEDURE 
ŞŞPLSQL UNIT: TEST DIRECTIVES 


ŞŞPLSQL LINE - 8 

Anonymous PL/SQL block 
$SPLSQOL UNIT OWNER: 

$$PLSQL UNIT TYPE: ANONYMOUS BLOCK 
$$PLSQL UNIT: 

$$PLSQL LINE : 8 


编译 参数 PLSQL DEBUG 已 弃 用 


从 Oracle 12c 版 本 开始 ，PLSQL_DEBUG 参 数 已 弃 用 。 若 要 为 了 调试 而 编译 PL/SQL 子 程序 ，PLSQL _OPTIMIZE_LEVEL 参 数 应 设置 为 1。 第 25 章 非常 
详细 地 讨论 了 PLSQL_OPTIMIZE_LEVEL 参 数 和 PL/SQL 性 能 优化 器 支持 的 各 种 优化 级 别 。 


[1 原文 缺少 第 2 个 下 划 线 ， 参 见 Otacle 文 档 。 
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第 1 草 PL/SQL 概 念 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
PL/SQL 架 构 

- PL/SQL 开 发 环境 
.PL/SQL 基础 知识 


PL/SQL 表 示 “ 对 SQL 的 过 程 语言 扩展 ”。 由 于 PL/SQL 与 SQL 紧 密集 成 ， 因 此 它 支 持 绝 大 多 数 的 SQL 功 能 ， 如 SQL 数 据 操作 、 数 据 类 型 、 运 算 符 、 阔 
数 和 事务 控制 语句 。 作 为 对 SQL 的 扩展 ，PL/SQL 把 SQL 与 任何 高 级 语言 提供 的 编程 结构 和 子 程序 相 结 合 。 


PL/SQL 同 时 用 于 服务 器 端 和 客户 端 二 者 的 开发 。 例 如 ， 可 以 使 用 PL/SQL 在 服务 器 端 编写 数据 库 触发 器 (附加 到 表 的 代码 ， 在 第 13 章 和 第 14 章 中 讨 
论 ) ， 也 可 以 在 客户 端 编写 Oracle Form 后 面 的 逻辑 。 此 外 ， 配 合 各 种 Oracle 开 发 工具 使 用 时 ，PL/SQL 还 可 以 在 常规 和 云 环 境 中 开发 网 络 和 移动 应 用 。 


1.1 实验 1: PL/SQL 架 构 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 描述 PL/SQL 架 构 。 

. 讨论 PL/SQIL 块 结构 。 

"了解 PL/SQL 如 何 执行 。 


许多 Oracle 应 用 程序 都 是 使 用 多 个 层 构 建 的 ， 这 也 被 称 为 N 层 结构 ， 其 中 每 一 层 都 代表 一 个 单独 的 逻辑 流程 。 例 如 ， 一 个 三 层 体系 结构 将 包括 三 个 层 
: 数据 管理 层 、 应 用 处 理 层 和 表示 层 。 在 这 个 染 构 中 ，Oracle 数 据 库 驻 留 在 数据 管理 层 ， 而 针对 该 数据 库 发 出 请 求 的 程序 驻 留 在 表示 层 或 应 用 处 理 
。 这 种 程序 可 以 用 许多 编程 语言 ， 包 括 PL/SQL 来 编写 。 一 个 三 层 结 构 的 示例 如 图 1-1 所 示 。 


`Í 


NI 


表示 层 


这 是 实现 用 户 和 应 用 交互 Же 


用 户 进一步 处 理 的 请 求 ， 并 将 其 发 送 给 应 | эш чер 
用 处 理 层 购买 《Oracle PLMSQL 实 例 精 解 》: 
试 加 购买 的 物品 刘 购 物 桔 ， 处 理 
ЕЕ 
онна | 
— ЛКНН ЕПН) Н РВ. арузи 
Чол 此 外 ， 它 还 评估 业务 验证 用 户 请 求 : | 
则 、 re ы ы тл ЫШАРА пря р 
查询 
АЕ 
数据 管理 层 
这 一 层 实质 上 是 数据 库 服务 器 。 根 据 从 应 用 | 
处 理 层 接收 到 的 请 求 ， 数 据 彼 存储 到 数据 库 иелш 
服务 дени у 从 中 提取 ДЕЙ ЈА А 用 处 理 层 


接收 到 的 查询 


1.2 22192: PL/SQL 开 发 环境 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
‚ 初步 掌握 SQL Developet 的 用 法 。 
` 初步 掌握 3QL*Plus 的 用 法 。 


. 执行 PL/SQL 脚 本 。 


SQL Developer 和 SQL*Plus 是 两 种 Oracle 提 供 的 工具 ， 你 可 以 用 它们 来 开发 和 运行 PL/SQL 脚 本 。SQL*Plus 是 一 个 旧式 的 命令 行 实用 程序 工具 ,， 它 
从 起 步 阶 段 开 始 就 一 直 是 Oracle 平 台 的 一 部 分 。 它 包括 在 每 个 平台 上 的 Oracle 安 装 中 。SQL Developer 是 用 于 数据 库 开 发 和 管理 的 一 个 免费 图 形 工具 。 
这 是 Oracle 工 具 集 中 一 个 相当 新 的 补充 ， 并 且 既 可 以 作为 Oracle 安 装 的 一 部 分 ， 也 可 以 通过 从 Oracle 的 网 站 下 载 来 获得 。 


由 于 具有 图 形 界面 ，SQL Developer 的 环境 比 SQL*Plus 更 容易 使 用 。 它 允许 你 浏 昂 数 据 库 对 象 、 运 行 SQL 语 句 并 创建 、 调 试 和 运行 PL/SQL 语 句 。 此 
外 ， 它 支持 语法 突出 显示 和 格式 模板 ， 当 你 正在 开 友 和 调试 复杂 的 PL/SQL 模 块 时 ， 这 些 都 变 得 非常 有 用 。 


\ 一 /一 


尽管 SQL*Plus 和 SQL Developer 是 两 种 差别 很 大 的 工具 ， 但 其 基本 功能 以 及 它们 与 数据 库 的 交互 却 是 非常 相似 的 。 它 们 在 运行 时 ， 都 把 QL 和 
PL/SQL 语 句 友 送 到 数据 库 。 一 旦 这 些 语句 被 处 理 完成 ， 结 果 束 会 从 数据 库 被 友 回 ， 并 在 屏幕 上 显示 出 来 。 


本 草 中 所 使 用 的 示例 都 同时 在 这 两 个 工具 中 执行 ， 这 是 为 了 在 适当 的 时 候 说 明 一 些 界面 上 的 区 别 。 需 要 注意 的 是 ， 本 书 的 主要 重点 是 学 习 PL/SQL,， 
因此 ， 对 这 些 工具 的 探讨 只 限于 运行 本 书 提供 的 PL/SQL 示 例 所 需 的 程度 。 


1.3 20153: PL/SQL 基 础 知识 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
使 用 DBMS_OUTPUT.PUT_LINEB 语 句 。 
` 使 用 替代 变量 功能 。 
我 们 前 面 指 出 ，PL/SQL 不 是 一 门 独立 的 编程 语言 ， 相 反 ， 它 只 是 作为 Oracle 环 境 中 的 工具 存在 。 因 此 ， 它 并 不 真正 具有 任何 接受 来 自用 户 的 输入 的 
功能 。 接 受用 户 的 输入 是 通过 SQL Developer 和 SQL*Plus 工 具 中 被 称 为 替代 变量 的 特殊 功能 实现 的 。 
同样 ， 把 PL/SQL 块 执行 之 后 的 一 些 相关 信息 提供 给 用 户 常 常 是 有 帮助 的 ， 这 是 借助 DBBMS OUTPUT.PUT _LINE 语 句 来 实现 的 。 请 注意 ， 与 替代 变量 
不 同 ， 这 个 语句 是 PL/SQL 语 言 的 一 部 分 。 
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ГЕЛ ни 


在 本 章 ， 我 们 了 解 了 PL/SQL 架 构 以 及 如 何在 多 层 环 境 中 使 用 它 。 我 们 还 了 解 了 PL/SQL 如 何 通 过 蔡 代 变量 和 DBMS_OUTPUT.PUT_LINE 语 句 与 用 户 
进行 交互 。 最 后 ,我 们 了 解 了 两 种 PL/SQL 开 发 工具 ，SQL Developer 和 SQL*Plus。 本 章 中 显示 的 示例 都 同时 用 这 两 种 工具 来 执行 ， 以 便 说 明 它 们 之 间 的 
差异 。 两 者 之 间 的 主要 区 别 在 于 ，SQL Developer 具 有 图 形 用 户 界面 ， 而 SQL*Plus 具 有 命令 行 界面 。 在 本 书 中 所 用 的 PL/SQL 实 例 都 可 以 用 上 述 工具 中 的 
任何 一 种 来 执行 ， 结 果 是 相同 的 。 根 据 你 的 喜好 ， 你 也 可 以 选择 使 用 一 个 工具 ， 而 不 用 另 一 个 。 然 而 ， 最 好 同时 熟悉 这 两 种 工具 ， 因 为 几乎 每 个 Oracle 
数据 库 安装 都 包含 这 些 工 具 。 


ЛИ тле 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获得 的 一 切 技能 来 测试 你 


的 理解 程度 。 


第 2 章 ”PL/SQL 语 言 基础 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
· PL/SQL 编 程 基 础 


在 “Oracle Dc PL/SQL 新 特性 简介 ”和 第 1 草 ， 你 学 习 了 机 器 语言 和 编程 语言 之 间 的 区 别 。 此 外 ， 你 还 学 习 了 PL/SQL 和 SQL 的 区 别 以 及 PL/SQL 基 本 
块 结构 的 工作 原理 。 与 学 习 一 门 外 语 的 历史 及 其 使 用 的 上 下 文 类 似 ， 若 要 使 用 PL/SQL 语 言 ， 你 必须 学 会 关键 字 ， 包 括 它们 的 含义 和 它们 的 使 用 场合 及 使 
用 方法 。 首 先 ， 你 将 学 习 不 同类 型 的 关键 字 。 然 后 ， 你 将 学 习 它 们 的 完整 语法 。 最 后 ， 在 本 章 中 ， 你 将 通过 探索 作用 域 和 内 套 块 来 扩展 简单 的 块 结构 。 


2.1 实验 : PL/SQL 编 程 基 础 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 描述 PL/SQL 语 言 组 件 。 

- 解释 PL/SQL 变 量 的 用 法 。 

-确定 PLVSQL 保 留 字 。 


- 解释 PL/SQL 中 标识 符 的 用 法 。 


` 讨论 块 的 作用 域 、 谱 套 块 和 标签 。 


在 大 多 数 语言 中 ， 都 只 有 两 组 字符 : 数字 和 字母 。 某 些 语言 (ДАЖЕ) 有 不 与 辅音 放 在 一 行 的 特定 元 音字 符 。 其 他 语言 (如 日 语 ) 有 三 
种 字符 集 : 第 一 种 是 最 初 取 自 汉语 的 词 ， 第 二 种 是 原生 日 语词 ， 第 三 种 是 其 他 外 来 词 。 学 习 任 何 一 门 外 语 ， 你 都 必须 从 学 习 这 些 字符 集 开 始 ， 然 后 进 一 
步 学 习 如 何 根 据 这 些 字符 集 来 组 词 。 最 后 ， 学 习 词 类 ， 并 且 可 以 开始 使 用 这 种 语言 。 


你 可 以 把 PL/SQL 视 为 一 种 更 复杂 的 语言 ， 因 为 它 有 许多 字符 类 型 ， 此 外 ， 许 多 类 型 的 词 或 词汇 单位 都 由 这 些 字符 集 形成 。 一 旦 你 学 会 了 这 些 构件 ， 
就 可 以 进一步 学 习 PL/SQL 语 言 的 结构 了 。 
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在 本 章 ， 我 们 学 习 了 PL/SQL 语 言 的 基础 知识 。2.1.1 节 介绍 了 PL/SQL 语 言 中 的 基本 组 件 ， 它 们 可 以 用 来 构建 简单 的 PUSQL 代 码 。 然 后 我 们 学 习 了 变 
量 ， 它 们 可 以 用 来 存储 每 次 运行 程序 时 可 能 会 更 改 的 值 。 我 们 还 学 习 了 PL/SQL 关 键 字 ， 这 些 术语 具有 特定 的 合 义 ， 并 且 不 能 用 作 变 量 名 称 。 本 章 还 探讨 
了 标识 符 和 挂靠 的 数据 类 别 ， 帮 助 你 了 解 如 何 使 用 数据 类 型 值 。 本 章 末 尾 解释 了 基本 的 PLUSQL 块 ， 以 及 如 何 通过 谍 套 块 和 利用 标 等 来 组 织 代码 。 

ЇЇ Л 


配套 网 站 (informit.com/title/0133796787) 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 


在 本 章 获 得 的 一 切 技能 来 测试 你 的 理解 程度 。 


第 3 章 ”在 PL/SQL 中 的 SQL 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
. 在 PL/SQL 中 的 DML 语 和 句 
‚ 在 PL/SQL 中 的 事务 控制 


本 章 是 在 PL/SQL 块 中 使 用 SQL 语 句 的 一 些 基 本 要 素 的 集合 。 在 第 1 章 和 第 2 章 ， 我 们 使 用 “:=” 语 法 初始 化 变量 ， 在 本 章 中 ， 我 们 将 介绍 使 用 SQL 
SELECT 语 句 来 更 新 变量 值 的 方法 。 这 些 变 量 随后 可 以 在 DML 语 句 (插入 、 删 除 或 更 新 ) 中 使 用 。 此 外 ， 我 们 将 演示 如 何在 PL/SQL 块 内 的 DML 语 句 中 像 
在 一 个 单独 的 SQL 语 句 中 那样 使 用 序列 。 


在 Oracle 中 ， 事 务 是 由 程序 员 组 合成 一 个 逻辑 单元 的 一 系列 SQL 语句 。 程 序 员 选 择 这 样 做 是 为 了 维护 数据 的 完整 性 。 每 个 应 用 程序 (SQL*Plus、 


SQL Developer 和 各 种 第 三 方 PHSQL 工 具 ) 都 为 用 户 登 录 的 每 个 实例 维护 一 个 数据 库 会 话 。 已 经 由 单个 应 用 程序 会 话 对 数据 库 执行 的 修改 ， 在 提交 之 前 
实际 上 并 没有 “保存 ”到 数据 库 中 。 事 务 内 的 工作 在 提交 之 前 可 以 回 滚 , 但 是 ,一 旦 提交 已 友 出 ， 事 务 内 的 工作 就 无 法 回 滚 了。 请 注意 ， 这 些 SQL 语 句 应 
作为 一 个 整体 被 提交 或 拒绝 。 


要 上 友 挥 事务 控制 ， 可 以 用 一 个 SAVEPOINT 语 句 把 大 的 PLUSQL 语 句 分 解 为 更 易于 管理 的 各 个 单元 。 在 本 章 中， 我 们 将 讨论 事务 控制 的 基本 要 素 ， 所 
以 你 会 知道 如 何 利用 COMMIT、ROLLBACK 和 (主要) SAVEPOINT 语 句 来 管理 你 的 PL/SQL 代 码 。 


3.1 实验 1: 在 PL/SQL 中 的 DML 语 句 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
· 使 用 SELECT INTO 初 始 化 变量 。 
` 使 用 变量 初始 化 的 SELECT INTO 语 法 。 
-在 PL/SQL 块 中 使 用 DML。 


. 在 PL/SQL 块 中 利用 序列 。 


3.2 ”实验 2: 在 PL/SQL 中 的 事务 控制 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
. 使 用 COMMIT、ROLLBACKE 和 SAVEPOINT 语 名 。 


将 DML 和 事务 控制 相 结合 。 


3.3 КАЙЫ 


ле 


在 本 章 ， 我 们 学 会 了 如 何 使 用 变量 和 米 取 各 种 方式 来 填充 变量 。 插 入 语句 的 示例 演示 了 如 何在 一 个 PL/SQL 块 内 使 用 DML (数据 操纵 语言 ) 。 这 些 示 
例 还 利用 序列 生成 唯一 的 编号 。 


3.2 节 涉及 PL/SQL 中 的 事务 控制 ， 通 过 提交 数据 以 及 如 何 使 用 SAVEPOINT 解 释 了 其 合 义 。 最 后 一 个 示例 演示 了 如 何 利用 ROLLBACK 与 SAVEPOINT 
的 结合 来 逆转 已 提交 的 数据 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


ВДЕ ”条 件 控制 :IF 语句 


在 本 章 ， 你 将 学 习 如 下 内 容 : 


- IFA 
. ELSIF ё] 
` KEIFE ©) 


几乎 在 你 写 的 每 个 程序 中 ， 你 都 需要 做 出 决定 。 例 如 ， 如 果 在 本 财 年 结束 时 ， 必 须根 据 员工 的 工资 给 他 们 友 奖 金 。 为 了 计算 员工 的 奖金 ， 程 序 需要 
拥有 条 件 控制 。 换 句 话说 ， 它 需要 使 用 一 个 选择 结构 。 


条 件 控制 允许 你 基于 条 件 来 控制 程序 的 执行 流程 。 从 编程 方面 来 说， 这 意味 着 程序 中 的 语句 不 是 顺序 执行 的 。 相 反 ， 程 序 将 根据 条 件 的 计算 结果 来 
执行 一 组 语句 或 男 一 组 语句 。 


在 PL/SQL 中 ， 有 三 种 类 型 的 条 件 控制 : IF、ELSIF 和 CASE 语 句 。 本 章 将 探讨 两 种 条 件 控制 一 一 IF 和 ELSIF， 并 了 解 这 些 类 型 可 以 如 何 相互 诅 套 。 
CASE 语 句 将 在 第 5 草 中 讨论 。 
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完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


. 使 用 IF-THEN 语 和 句 。 


- 使 用 IF-THEN-ELSEB 语 句 。 


IF 语 句 有 两 种 形式 : IF-THEN 和 IF-THEN-ELSE。1F-THEN 语 句 允 许 你 指定 一 组 要 执行 的 操作 。 换 句 话说 ， 仪 当 条 件 的 计算 结果 为 TRUE 时 ， 这 组 操 
作 才 执行 。IF-THEN-ELSE 语 句 允 许 你 指定 两 组 操作 ， 而 第 二 组 操作 在 条 件 的 计算 结果 为 FALSE 或 NULL 时 执行 。 
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完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
使 用 ELSIF 语 句 。 
ELSIF 语 句 的 结构 如 清单 4.3 所 示 。 


清单 4.3 ”ELSIF 语 句 结 构 


条 件 1 
THEN 

ial; 
ELSIE 条 件 2 
THEN 

г; 
ELSIF 条 件 3 
THEN 

语句 3; 
http://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/15603/0EBPS/Text/... 
ELSE 

语句 NN; 
END IF; 


保留 字 IF 标 志 了 ELSIF 结 构 的 开始 。 从 条 件 1 到 条 件 N 是 计算 结果 为 TRUE 或 FALSE 的 一 系列 条 件 。 这 些 条 件 是 互 斥 的 。 换 句 话说 ， 如 果 条 件 1 的 计算 结 
果 为 TRUE,， 语句 1 束 执 行 ， 并 且 控 制 权 就 转 到 保留 词 END IF 后 的 第 一 个 可 执行 语句 。ELSIF 结 构 的 其 余部 分 被 忽略 。 当 条 件 1 的 值 为 FALSE 时 ， 控 制 权 融 
转 到 ELSIF 部 分 ， 并 对 条 件 2 进 行 计算 ， 并 依 此 类 推 。 如 果 任何 指定 条 件 的 值 都 不 为 TRUE， 则 控制 权 转 到 ELSIF 结 构 的 ELSE 部 分 。 一 个 ELSIF 语 句 可 以 包含 
任意 数量 的 ELSIF 子 句 。 这 种 逻辑 流 如 图 4-3 所 示 。 


Fin ELSIF 


r 


执行 语句 1 


2 HE 是 


T 


执行 语句 2 


94-3 ”ELSIF 语 句 


图 4-3 显 示 ， 如 果 条 件 1 的 计算 结果 为 TRUE， 则 执行 语句 1， 并 且 控 制 权 转 到 END IF 后 的 第 一 条 语句 。 如 果 条 件 1 的 计算 结果 为 FALSE， 则 控制 权 转 
到 条 件 2。 如 果 条 件 2 的 值 为 TRUE， 则 语句 2 执行 。 否 则 ， 控 制 权 转 到 END IF 之 后 的 语句 ， 等 等 。 考 虑 下 面 的 示例 。 


示例 ch04 3a.sql 


DECLARE 
Уу пит NUMBER := &SV пит; 

BEGIN 
DBMS OUTPUT.PUT LINE ('Before IF statement...'); 
IF у пит < 0 


THEN 
DBMS OUTPUT.PUT LINE (у num||' is а negative потрег'); 
ELSIF У пит = 0 
THEN 
DBMS OUTPUT .PUT LINE (у num||' is equal to zero'); 
ELSE 
DBMS OUTPUT.PUT LINE (у num||' is a positive number'); 
END ТР; 
DBMS OUTPUT.PUT LINE ('After IF statement...'); 
END; 


变量 v num 的 值 在 运行 时 提供 ， 并 借助 ELSIF 语 句 进行 计算 。 如 果 v_ num 的 值 小 于 0， 则 第 一 个 DBMS OUTPUT.PUT LINE 语 句 执行 ， 并 且 ELSIF 结 
构 终 止 。 如 果 v_num 的 值 大 于 0， 两 个 条 件 


у пит < 0 


和 


Уу пит = 0 


的 计算 结果 都 为 FALSE， 并 且 ELSIF 结 构 的 ELSE 部 分 会 执行 。 
假设 变量 v num 的 值 在 运行 时 等 于 5。 那 么 该 示例 将 产生 下 面 的 输出 : 
Before IF statement... 


5 is a positive number 
After IF statement... 


你 知道 吗 ? 
对 于 ELSIF 语 句 : 
. IF 必须 始终 与 END IF 匹配 。 
` 在 END 和 IE 之 间 必 须 有 空格 。 如 果 省 略 空格 ， 编 译 器 将 产生 以 下 错误 : 


ORA-06550: 11пе 13, column 4: 
Р15-00103: Encountered the symbol ";" when expecting опе of the following: if 


正如 你 所 看 到 的 ， 此 错误 消息 不 是 很 清楚 ， 并 且 这 会 让 你 花 一 段 时 间 来 纠正 它 ， 特 别 是 如 果 你 以 前 没有 遇 到 过 它 。 


. 在 ELSIF 中 没有 第 二 个 “E”。 


“ ELSIF 语 名 中 的 条 件 必须 是 互 斥 的 。 这 些 条 件 按 照 从 第 一 个 到 最 后 一 个 的 顺序 进行 计算 。 一 旦 条 件 的 计算 结果 为 TRUE， 则 ELSIF 语 句 的 其 余 条 件 


都 不 会 计算 。 考 虑 下 面 这 个 ELSIF 结 构 的 示例 : 


ТЕ у num >= 0 
THEN 

DBMS OUTPUT.PUT LINE ('у num is greater than 0'); 
ELSIF у num <= 10 


ТНЕМ 

DBMS OUTPUT.PUT 1ІМЕ ('у num is less than 10'); 
ELSE 

DBMS ООТРОТ.РОТ LINE ('v_ num is less than ? or greater than ?'); 
END LF; 


假定 v_num 的 值 等 于 5。ELSIF 语 句 的 两 个 条 件 的 计算 结果 都 为 TRUE， 因 为 5 大 于 0 且 5 小 于 10。 然 而 ,一 旦 第 一 个 条 件 v_num>=0 的 计算 结果 为 


TRUE ，ELSIF 结 构 的 其 余部 分 就 会 被 忽略 。 


对 于 大 于 或 等 于 0 且 小 于 或 等 于 10 的 任何 v_num 值 ， 这 些 条 件 并 不 是 互 斥 的 。 因 此 ， 不 会 为 任何 此 类 v_num 值 执行 与 ELSIF 子 句 关联 的 


DBMS_OUTPUT.PUT_LINE 语 句 。 在 此 ， 要 使 第 二 个 条 件 v_num<=10 的 计算 结果 为 TRUE，v_num 的 值 必须 小 于 0。 
你 会 如 何 改写 这 个 ELSIF 结 构 来 捕获 0~10 之 间 的 任何 v_num 值 ， 并 用 单个 条 件 在 屏幕 上 显示 它 呢 ? 


当 使 用 ELSIF 结 构 时 ， 如 果 没 有 计算 结果 为 TRUE 的 条 件 ， 则 没有 必要 指定 应 采取 哪些 操作 。 换 句 话 说， 在 ELSIF 结 构 中 ELSE 子 句 不 是 必需 的 。 考 虑 下 
面 的 示例 : 


示例 ch04 3b.sql 


DECLARE 
Уу пит NUMBER := &SV пит; 
BEGIN 
DBMS OUTPUT .PUT LINE ('Before IF statement...'); 
IF у пит < 0 
THEN 
DBMS OUTPUT .PUT LINE (у num||' is a negative number'); 
ELSIF Уу пит > 0 
THEN 
DBMS OUTPUT.PUT LINE (у num||' is a positive number'); 
END IF; 
DBMS OUTPUT.PUT LINE ('After IF statement...'); 
END; 


正如 你 所 看 到 的 ， 当 v_num 等 于 0 时 ， 没 有 指定 的 操作 。 如 果 v_num 的 值 等 于 0， 这 两 个 条 件 的 计算 结果 都 为 FALSE， 并 且 ELSIF 语 句 根本 不 会 执行 。 
当 赋予 v num 一 个 零 值 时 ， 该 示例 将 产生 下 面 的 输出 : 


ВеҒоге ТЕ statement... 
After ТЕ statement... 


你 知道 吗 ? 


你 可 能 注意 到 了 ， 对 于 所 有 IF 语 句 的 示例 ， 保 留 字 IF、ELSIF、ELSE 和 END IF 都 在 单独 一 行 输入 ， 并 与 单词 IF 对 齐 。 此 外 ， 在 IE 结构 中 的 所 有 可 执 
行 语 名 都 缩 进 。IF 结 构 的 格式 对 编译 器 来 说 是 没有 区 别 的 ,但 是 对 我 们 来 说 ， 用 这 种 风格 格式 化 的 I 结构 的 含义 会 更 明显 。 


ІЕ-ТНЕМ-БІЅЕ з ё) : 
IF x = у THEN у txt := 'YES'; ELSE v txt := NO ) END IF; 


相当 于 
IE х = y 
THEN 
у СХС := IBS" i 
ELSE 
у txt := 'NO'; 
END ТЕ; 


格式 化 版 本 的 IE 结构 更 容易 阅读 和 理解 。 
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完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 谱 套 的 IF 语 和 句 。 


我 们 已 经 遇 到 了 不 同类 型 的 条 件 控制 : IF-THEN 语 句 、IF-THEN-ELSE 语 句 和 ELSIF 语 句 。 这 些 类 型 的 条 件 控制 可 以 相互 宜人 套 ， 例 如 ，IF 语 句 可 以 岂 
套 人 在 ELSIF 的 内 部 ， 反 之 亦 然 。 考 虑 下 面 的 示例 : 


示例 ch04 4a.sql 


DECLARE 
Уу numl NUMBER : 
Уу num2 NUMBER : 
у total NUMBER; 


&sv_numl; 
&sv_ пит2; 


BEGIN 

IF v numi > v num2 

THEN 
DBMS ООТРОТ.РОТ 1ІМЕ ('IF part of the outer IF'); 
v_total := у numl - v_num2; 

ELSE 
DBMS OUTPUT .PUT LINE ('ELSE part of the outer ТЕ'); 
v_total := v numi + у пит2; 


IF v total < 0 
THEN 
DBMS OUTPUT.PUT LINE ('Inner IF'); 
v total := v total * (-1); 
END IF; 
END IF; 
DBMS OUTPUT .PUT LINE ('v_total = '||v_total); 
END ; 


因为 IF-THEN-ELSE 语 句 包含 了 IF-THEN 语 句 (以 粗 体 显示 ) ， 所 以 它 称 为 外 层 IF 语 句 。1IF-THEN 语 句 称 为 内 层 |F 语 句 ， 因 为 它 是 由 IF-THEN-ELSE 
语句 体 包 围 的 。 


假设 v num1 和 v_num2 的 值 分 别 是 -4 和 3。 首 移 ， 计 算 外 层 IF 语句 的 条 件 


Уу поті > у num2 


因为 -4 不 大 于 3， 外 层 IF 语 句 的 ELSE 部 分 被 执行 。 其 结果 是 ， 显 示 消 息 


ELSE рагі of the outer IF 


并 且 计 算 v_total 的 值 。 接 着 ,计算 内 层 IF 语 句 的 条 件 


“tal -«2 0 


因为 v_ total 的 值 等 于 -|， 所 以 条 件 产 生 TRUE， 并 且 显 示 消 息 
Inner IF 


接着 ， 再 次 计算 v_total 的 值 。 这 个 逻辑 被 示例 产生 的 输出 证 实 : 


ELSE рагі of the outer IF 
inner LF 
v_total = 1 


在 本 章 中 ， 到 目前 为 止 ， 你 已 经 看 到 了 不 同 的 |F 语 名 的 示例 。 所 有 这 些 示例 都 使 用 了 测试 运算 符 ， 如 >、< 和 = 来 计算 一 个 条 件 。 逻 辑 运算 符 也 可 以 
用 来 计算 条 件 。 另 外 ， 它 们 允许 程序 员 将 多 个 条 件 组 合成 单个 条 件 ， 如 果 有 这 样 的 需要 。 


示例 ch04 5a.sql 


DECLARE 
у letter СНАК (1) ;= !&8у Jetter'; 
BEGIN 
IF (v_letter >= 'A' AND у letter <= 'Z') OR 
(v_letter >= 'a' AND v_letter <= 'z') 
THEN 
DBMS OUTPUT.PUT_LINE ('This is a letter'); 
ELSE 
DBMS ООТРОТ.РОТ 1ІМЕ ('This is not а letter'); 
IF v letter BETWEEN '0' апа '9' 
THEN 
DBMS OUTPUT.PUT 1ІМЕ ('This is a number'); 
ELSE 
DBMS OUTPUT.PUT LINE ('This is not a number'); 
END IF; 
END ІЕ; 
END; 


在 本 示例 中 ， 条 件 


(у letter >= 'А' AND v letter <= 'Z') OR 
(у letter >= 'а' AND у letter <= 'z') 


使 用 了 逻辑 运算 符 AND 和 OR。 两 个 条 件 


(Уу letter >= 'A' AND v letter <= '27') 
和 
(у letter >= 'a' AND у letter <= 'z') 
借助 OR 运算 符 被 合并 成 一 个 条 件 。 注 意 圆 括号 的 用 途 。 在 这 个 例子 中 ， 它 们 仅 用 来 提高 可 读 性 ， 因 为 运算 符 AND 优 先 于 OR。 


当 在 运行 时 输入 “?” 符 号 时 ， 此 示例 产生 下 面 的 输出 : 


This іѕ поі a letter 
This is not a number 


你 知道 吗 ? 
你 可 以 以 任意 深度 层级 来 谱 套 TF 语句， 直到 达到 一 个 PL/SQL 块 的 最 大 长 度 为止 ， 而 块 本 身 的 诬 套 深度 可 以 达到 255 层 。 考 虑 下 面 的 示例 ， 其 中 ，IF 话 


名 是 四 层 深 度 内 相互 容 套 的 : 


DECLARE 
у varl PLS INTEGER 100; 
v var2 PLS INTEGER := 200; 


у var3 PLS INTEGER 300; 
у var4 PLS INTEGER := 400; 
BEGIN 
IF v varl >= 100 
THEN 
IF v Var2 >= 200 


THEN 
IF у var3 >= 300 
THEN 
ТЕ у Var4 >= 400 
THEN 
DBMS OUTPUT.PUT LINE 
(бу vari = '||у уаг1||?, у уаї2 = :| |v уаг2 | | 
', у var3 = '||у var3||', у var4 = '||у уаг4); 
END IF; 
END IF; 
END IF; 
END IF; 
END; 


虽然 这 个 脚本 很 简单 ， 并 且 没 什么 大 的 作用 ， 但 这 种 深度 庶 套 的 IF 语句 理 解 起 来 很 困难 ， 并 在 实现 复杂 的 业务 解决 方案 时 ， 会 很 快 就 变 得 非常 复 


FS 


在 此 示例 中 ， 可 以 利用 AND 运 算 符 组 合 这 些 条 件 ， 来 把 四 个 伐 套 的 IF 语句 重组 为 单个 IF 语句 : 


IF У varl >= 100 AND у var2 >= 200 апа у var3 >= 300 AND у var4 >= 400 


ТНЕМ 


END ТЕ; 
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用 多 辑 运 算 符 。 几 乎 所 有 的 编程 语言 都 支持 条 件 控制 结构 ， 虽 然 语法 可 能 会 友 生 变化 ， 但 它们 的 使 用 方式 保持 不 变 。 


在 第 5 草 ， 我 们 将 通过 CASE 语 句 和 CASE 表 达 式 继续 了 解 条 件 控制 。 此 外 ， 我 们 还 将 了 解 由 SQL 和 PL/SQL 语 言 支 持 的 NULLIF 和 COALESCE 消 数 。 


顺便 说 况 
配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 


的 理解 程度 。 


Вов 条件 控制 : CASE 语 名 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
. CASE 4] 
· CASE 表达 式 


. NULLIE 和 COALESCE 5 Ж 


在 第 4 章 中 ， 我 们 通过 IF 和 ELsIF 语 句 探讨 了 条 件 控制 的 概念 。 在 本 章 中 ， 你 将 通过 检查 不 同类 型 的 CASE 语 句 和 表达 式 继 续 这 种 探讨 。 你 还 将 学 习 如 
何 使 用 NULLIF 和 COALESCE 函 数 ， 这 被 认为 是 对 CAsE 的 扩展 。 


5.1 30251: CASE 语 名 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
‚ 使 用 CASE 语 和 句 。 
` 使 用 搜索 CASE 语 句 。 
` 使 用 座 套 CASE 语 句 。 


CASE 语 句 有 两 种 形式 : CASE 和 搜索 CASE。CASE 语 句 人 允许 你 指定 一 个 确定 要 采取 哪 组 操作 的 选择 子 (selector) 。 搜 索 的 CASE 语 句 没有 选择 子 ， 
相反 ， 它 具有 要 进行 计算 ， 以 决定 应 该 采取 哪 组 操作 的 搜索 条 件 。 


5.2 50592: CASE 表 达 式 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 CASE 表 达 式 。 


在 第 2 章 ， 我 们 探讨 了 各 种 PL/SQL 表 达 式 。 回 顾 一 下 ， 表 达 式 的 结果 是 可 被 赋予 一 个 变量 的 单个 值 。 类 似 地 ，CASE 表 达 式 的 计算 结果 也 是 可 被 赋予 
一 个 变量 的 单个 值 。 


CASE 表 达 式 有 一 个 几乎 等 同 于 CASE 语 句 的 结构 。 因 此 ， 它 也 有 两 种 形式 : CASE 和 搜索 CASE。 考 虑 在 本 章 的 第 一 个 实验 中 使 用 CASE 语 句 的 一 个 示 
例 : 


示例 ch05 1d.sql 


DECLARE 
Уу пит NUMBER := &sv user num; 
у num flag NUMBER; 

BEGIN 


v_num_flag := MOD (v_num,2); 


-- 测试 由 用 户 提供 的 数值 是 否 为 偶数 


CASE у пит flag 
ИНЕМ 0 
THEN 
DBMS OUTPUT.PUT LINE (v num||' is even number'); 
ELSE 
DBMS _ OUTPUT .PUT LINE (v_num||' is odd number'); 
END CASE; 
END; 


现在 考虑 同一 个 示例 的 新 版 本 ， 它 采用 一 个 CASE 表 达 式 来 代 蔡 CASE 语 句 。 更 改 的 地 方 以 粗 体 显示 。 


示例 ch05 1e.sql 


DECLARE 
Уу пит NUMBER := &sv user пип; 
v_num flag NUMBER; 
v result VARCHAR2 (30); 
BEGIN 
у пит flag := MOD (у пит, 2); 


-- 测试 由 用 户 提供 的 数值 是 否 为 偶数 


у result := CASE v num flag 


WHEN 0 
THEN 
v_num||' is even number' 
ELSE 
v num||' is odd number' 
END; 
DBMS OUTPUT.PUT LINE (v result); 


END; 

在 这 个 示例 中 ， 用 一 个 新 变量 v_result 来 保 仔 由 CASE 表 达 式 返回 的 值 。 如 果 将 8 赋予 变量 v_ num ， 这 个 示例 将 产生 下 面 的 输出 : 
8 is even number 

必须 注意 到 CASE 语 句 和 CASE 表 达 式 之 间 的 一 些 语法 差异 。 考 虑 表 5-2 所 示 的 代码 片段 。 


表 5-2 CASE 语句 与 CASE 表 达 式 


CASE 语句 CASE 表达 式 
CASE у num flag CASE V num flag 
WHEN 0 WHEN 0 
THEN THEN 
DBMS OUTPUT.PUT LINE v_num||' is even number' 
(v_num||' is even number'); 
ELSE ELSE 
DBMS OUTPUT.PUT LINE v_num||' is odd number' 
(v_num||' is odd number'); 
END CASE; END; 


在 CASE 语 句 中 ，WHEN 和 ELSE 子 句 都 包含 一 个 可 执行 语句 。 每 个 可 执行 语句 都 以 分 号 结束 。 在 CASE 表 达 式 中 ，WHEN 和 ELSE 子 句 都 包含 不 以 分 号 
结束 的 表达 式 。 分 号 出 现在 用 来 终止 CASE 表 达 式 的 保留 字 END 后 。 最 后 一 个 区 别 是 ，CASE 语 句 以 保留 词 END CASE 结 束 。 


接 下 来 ， 考 虑 前 面 示例 的 男 一 个 版 本 ， 它 包含 搜索 CASE 表 达 式 ( 受 影响 的 语句 以 粗 体 显示 ) : 


示例 ch05 1f.sd| 


DECLARE 
Уу пит NUMBER := &sv user num; 
v_result VARCHAR2 (30); 

BEGIN 


-- 测试 由 用 户 提供 的 数值 是 否 为 偶数 
у result := CASE 
WHEN MOD (у пит,2) = 0 


THEN 
v num||' is even number' 
ELSE 
v num||' is odd number' 
END; 
DBMS OUTPUT.PUT LINE (v_result); 


END; 


在 这 个 示例 中 ， 没 有 必要 声明 变量 v_ пит _flag， 因 为 CASE 搜 索 表 达 式 不 需要 一 个 选择 子 的 值 ， 并 且 MOD 阔 数 的 结果 被 并 入 了 搜索 条 件 中 。 当 这 个 


示例 运行 时 ， 它 产生 的 输出 等 同 于 以 前 的 版 本 : 
8 15 even number 


我 们 刚才 了 解 到 ，CAsE 表 达 式 返回 随后 被 赋予 一 个 变量 的 单个 值 。 在 你 前 面 看 到 的 示例 中 ， 这 个 赋值 操作 通过 赋值 运算 符 := 来 完成 。 你 可 能 还 记 
得 ， 还 有 另 一 种 方式 可 以 给 PL/SQL 变 量 赋值 ， 也 就 是 说 ， 通 过 一 个 SELECT INTO 语 和 句 来 赋值 。 考 虑 在 SELECT INTO 语 句 中 使 用 CASE 表 达 式 的 一 个 示 
例 : 

示例 ch05 4а.д| 

DECLARE 


у course по NUMBER ; 
v_description VARCHAR2 (50); 


у prereq VARCHAR2 (35); 
BEGIN 
SELECT course_no 
, description 
, CASE 
WHEN prerequisite IS NULL 
THEN 
'No prerequisite course required' 
ELSE 


ТО CHAR (prerequisite) 
END prerequisite 
INTO у сочгзѕе по 
‚У деѕсгірёсіоп 
‚У ртетед 
FROM course 
WHERE course по = 20; 


DBMS ООТРОТ.РОТ LINE ('Course: '||v course по); 
DBMS OUTPUT.PUT LINE ('Description: '||v description); 
DBMS OUTPUT.PUT LINE ('Prerequisite: '||v prereq); 

END ; 


此 脚本 在 屏幕 上 显示 课程 编号 、 说 明和 先决 课程 的 编号 。 此 外 ， 如 果 给 定 的 课程 没有 一 个 先决 课程 ， 就 在 屏幕 上 显示 一 个 消息 ， 指 出 该 事实 。 为 了 
达到 理想 的 效果 ， 在 SELECT INTO 语 句 中 ，CASE 表 达 式 被 当 作 一 个 列 使 用 。 它 的 值 被 赋予 变量 v_prereq。 请 注意 ，CASE 表 达 式 的 保留 字 END 之 后 没有 


==] 
o 


a> 


该 示例 产生 下 面 的 输出 : 
Course: 20 


Description: Intro to Information Systems 
Prerequisite: No prerequisite course required 


课程 20 没 有 一 个 先决 课程 。 因 此 ， 搜 索 条 件 


WHEN prerequisite IS NULL 
THEN 


的 计算 结果 为 TRUE， 而 值 “No prerequisite course required” (无 需 先 决 课程 ) 被 赋予 变量 v prereq。 


必须 注意 为 什么 要 在 CASE 表 达 式 的 ELSE 子 句 中 使 用 TO_CHAR 消 数 : 


CASE 
WHEN prerequisite IS NULL 
THEN 
'No prerequisite course required' 
ELSE 
TO CHAR (prerequisite) 
END 


CASE 表 达 式 返回 单个 值 ， 因 此 ， 它 具有 单一 的 数据 类 型 。 出 于 这 个 原因 ， 必 须 确保 不 管 CASE 表 达 式 的 哪 一 部 分 被 执行 ， 它 总 是 返回 相同 的 数据 类 
型 。 在 前 面 的 CASE 表 达 式 中 ，WHEN 子 句 返 回 VARCHAR2 数 据 类 型 。ELSE 子 句 返 回 COURSE 表 的 PREREQUISITE 列 的 值 。 此 列 已 被 定义 为 NUMBER 类 
型 ， 所 以 需要 将 其 转换 成 字符 串 数据 类 型 。 

当 未 使 用 TO_CHAR 函 数 时 ，CASE 表 达 式 会 导致 以 下 语法 错误 : 

ORA-06550: line 13, column 17: 
PL/SQL: ORA-00932: inconsistent datatypes: expected CHAR got NUMBER 


ORA-06550: line 6, column 4: 
PL/SQL: SQL Statement ignored 


5.3 ”实验 3: NULLIF 和 COALESCE 峭 数 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
. 使 用 NULLIEF 有 函数 。 
- 4 А СОАГЕЅСЕ 5 Ж, 


NULLIF 和 COALESCE 函 数 由 ANSI 1999 标 准 定义 为 “CASE 的 缩写 ”。 这 两 个 函数 都 可 以 用 作 CASE 表 达 式 的 变 体 。 


54 AA 


IONA 


在 第 4 草 ， 我 们 开始 探索 Oracle 的 PL/SQL 语 言 支 持 的 条 件 控制 结构 。 在 本 草 ， 我 们 通过 学 习 CASE 语 句 和 表达 式 ， 以 及 COALESCE 和 NULLIF 消 数 继 
续 这 种 探索 。 你 已 经 学 会 了 如 何在 SQL 和 PL/SQL 语 言 中 使 用 CASE 结 构 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


Вб: AREE: 第 一 部 分 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
:简单 循环 
· УУ НПЕД Ж 


. 数字 FOR 循环 


之 所 以 要 编写 计算 机 程序 ， 通 常 是 因为 某 些 任务 必须 被 多 次 执行 。 例 如 ， 许 多 企业 都 需要 按 月 处 理事 务 ， 这 种 任务 能 够 通过 在 每 个 月 末 执 行 某 个 程 
同样 ， 程 序 也 包括 需要 重复 执行 的 指令 。 例 如 ， 一 个 程序 可 能 需要 将 一 些 记录 写 入 到 表 中 。 利 用 循环 ， 程 序 可 以 将 所 需 数量 的 记录 写 入 一 个 表 。 换 
言 之 ， 循 环 是 允许 一 组 指令 被 重复 执行 的 编程 设施 。 


在 PHSQL 中 ， 有 四 种 类 型 的 循环 、 简 单 循环 、WHILE 循 环 、 数 字 FOR 循 环 和 游标 FOR 循环 。 在 本 章 ， 我 们 将 探讨 简单 循环 、WHILE 循 环 和 数字 FOR 
循环 。 在 第 7 章 ， 你 将 看 到 这 些 类 型 的 循环 可 以 如 何 相互 瞪 套 。 此 外 ， 你 还 将 了 解 CONTINUE 和 CONTINUE WHEN 语句 ， 这 是 在 Oracle 11g 中 引入 的 。 
游标 FOR 循环 将 在 第 11 章 和 第 12 章 讨论 。 


61 实验 1: 简单 循环 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 简单 循环 与 EXIT 条 件 。 
` 使 用 简单 循环 与 EXIT WHEN 条 件 。 
简单 循环 ， 正 如 你 可 以 从 它 的 名 字 所 看 到 的 ， 是 最 基本 的 一 种 循环 ， 并 具有 清单 6-1 所 示 的 结构 。 


清单 6-1 ”简单 循环 结构 


LOOP 
ol; 
iee 2; 
http: //www.hzcourse .com/resource/readBook?path=/openresources/teach ebook/uncompressed/15603/0EBPS/Text/... 
语句 N; 
END LOOP; 


保留 字 LOOP 标 志 着 简单 循环 的 开始 。 语 句 1 到 NN 是 重复 执行 的 语句 序列 。 这 些 语 句 包含 一 个 或 多 个 标准 的 编程 结构 。END LOOP 是 保留 词 ， 指 示 循 
环 结构 的 结束 。 这 种 结构 的 逻辑 流 如 图 6-1 所 示 。 


图 6-1 简单 循环 


简单 循环 每 次 迭代 时 ， 都 执行 一 组 语句 序列 ， 然 后 控制 返回 到 循环 的 顶部 。 语 名 序列 将 执行 无 数 次 ， 因 为 没有 指定 何 时 循环 必须 终止 的 语句 。 因 
此 ， 简 单 循环 被 称 为 无 限 循 环 ， 因 为 没有 办 法 退出 循环 。 正 确 构造 的 循环 需要 有 一 个 确定 循环 何 时 完成 的 退出 条 件 。 这 种 退出 条 件 有 两 种 形式 : EXIT 和 
EXIT WHEN。 


6.2 ”实验 2: WHILE 循环 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
-使 用 WHILE 循环 。 


. 提前 终止 WHILE 循环 。 


6.3 实验 3: 数字 FOR 循环 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 带 有 IN 选项 的 数字 FOR 循环 。 
` 使 用 带 有 REVERSE 选 项 的 数字 FOR 循环 。 
‚ 提前 终止 数字 FOR 循环 。 
数字 FOR 循环 之 所 以 名 字 中 市 有 数字 二 字 ， 是 因为 它 需要 一 个 整数 作为 它 的 终止 值 。 这 种 循环 的 结构 如 清单 6-6 所 示 。 


清单 6-6 ”数字 FOR 循环 结构 


FOR loop counter IN [REVERSE] lower 1ітіё..иррег limit 
LOOP 

语句 1; 

语句 2; 

语句 N; 
END LOOP; 


保留 字 FOR 标 志 着 循环 结构 的 开始 。 变 量 loop_counter 是 一 个 隐 合 定义 的 索引 变量 。 没 有 必要 在 PL/SQL 块 的 声明 部 分 中 定义 循环 计数 器 ， 相反， 这 
个 变量 是 由 循环 结构 定义 的 。lower limit 和 upper limit 是 整数 或 在 运行 时 计算 结果 为 整数 值 的 表达 式 ， 而 双 点 
(http://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/15603/OEBPS/Text/..) 作为 范围 运算 符 。 
lower _limit 和 upper_limit 定 义 循环 迭代 的 次 数 ， 并 且 它 们 的 值 在 循环 的 第 一 次 迭代 时 被 一 次 性 地 计算 。 此 时 ， 该 循环 将 迭代 多 少 次 就 已 经 确定 了 。 语 句 
1 到 N 是 重复 执行 的 语句 序列 。END LOOP 是 保留 词 ， 它 标志 着 循环 结构 的 结束 。 


定义 循环 时 ，IN 或 IN REVERSE 保 留 字 之 一 必须 仔 任 。 当 使 用 REVERSE 天 键 字 时 ， 循 环 计数 器 将 从 上 限 志 历 到 下 限 。 然 而 ， 限 制 规 学 的 语法 没有 改 
变 。 下 限 始终 首先 被 引用 。 这 种 逻辑 沅 如 图 6-4 所 示 。 


开始 循环 


初始 化 计数 费 


一 一 计数 器 在 上 下 限 之 间 吗 


执行 语句 


结束 循环 


图 6-4 “数字 FOR 循环 


图 6-4 显 示 了 循环 计数 器 仅 在 循环 的 第 一 次 迭代 时 被 初始 化 为 下 限 。 但 是 ,循环 计数 器 的 值 会 在 循环 的 每 次 迭代 中 进行 测试 。 只 要 v_counter 的 值 在 
下 限 和 上 限 之 间 ， 循 环 体 中 的 语句 融 被 执行 。 当 循环 计数 器 的 值 沙 在 由 下 限 和 上 限 所 指定 的 学 围 乙 外 时 ， 则 控制 融会 转 到 循环 外 的 第 一 个 可 执行 语句 。 


6.4 总 结 


在 本 章 ， 我 们 探讨 了 PLMSQL 往 持 的 三 种 类 型 的 循环 。 我 们 还 学 会 了 如 何 使 用 退出 条 件 来 防止 无 限 循环 ， 以 及 如 何 提前 终止 循环 。 在 第 7 章 ， 我 们 将 
继续 了 解 循环 ， 并 探讨 如 何 将 它们 互相 内 套 。 此 外 ， 你 还 将 了 解 循环 的 其 他 功能 ， 在 Oracle 119 中 引入 的 CONTINUE 和 CONTINUE WHEN, 


ЛИ тле 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


PIA AREE: 第 二 部 分 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
. CONTINUE 3 ё 
- ЛА У 


在 第 6 章 ， 我 们 探讨 了 三 种 类 型 的 循环 : 简单 循环 、WHILE 循 环 和 数字 FOR 循环 。 我 们 还 了 解 到 ， 这 些 类 型 的 循环 可 以 用 退出 条 件 来 终止 。 在 本 章 ， 
你 将 学 习 如 下 内 容 : 在 Oracle 11g 中 引入 的 一 个 被 称 为 继续 条 件 的 PLUSQL 新 功能 。 类 似 于 退出 条 件 ， 继 续 条 件 也 有 两 种 形式 ，CONTINUE 和 
CONTINUE WHEN， 并 且 仪 可 在 循环 体内 使 用 。 你 还 将 学 习 如 何 互相 腐 套 不 同类 型 的 循环 。 


7.1 实验 1: CONTINUE 语 句 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 4 CONTINUE H 6) - 
` 使 用 CONTINUE НЕМ 6) „ 


正如 前 面 提 到 的 ， 继 续 条 件 有 两 种 形式 : CONTINUE 和 CONTINUE WHEN, 


7.2 20182: НЕЧЕМ 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
А ЛАЖ. 


` 使 用 循环 标签 。 


7.3” 忆 结 


ГЕЛ та) 


在 第 6 草 ， 我 们 开始 探索 PL/SQL 支 持 的 不 同类 型 的 循环 。 在 本 章 ， 我 们 通过 学 习 在 Oracle 11g 中 引入 更 多 的 循环 功能 继续 这 种 探索 。 你 也 发 现 了 有 
天 的 各 种 类 型 循环 可 以 如 何 互相 诅 套 。 最 后 ， 我 们 学 习 了 在 使 用 瞪 套 循环 时 ， 如 何 用 循环 标签 来 提高 代码 的 可 读 性 和 可 维护 性 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


ВВЕ ПУЕ ЯР 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
- 处理 错误 
.内置 异常 


在 第 1 章 ， 我 们 遇 到 了 可 以 在 程序 中 友 现 的 两 种 类 型 的 错误 : 运行 时 错误 和 编译 错误 。 我 们 还 了 解 到 ， 在 PL/SQL 块 中 有 一 个 特殊 的 部 分 来 处 理 运 行 
时 错误 。 在 这 个 所 谓 的 异常 处 理 部 分 中 ， 运 行 时 错误 被 称 为 异常 。 异 常 处 理 部 分 允许 程序 员 指 定 当 特 定 的 异常 友 生 时 应 采取 的 操作 。 


在 PL/SQL 中 ， 有 两 种 类 型 的 异常 :内置 异常 和 用 户 定 义 的 异常 。 在 本 草 ， 你 将 学 习 借 助 内 置 异常 处 理 某 些 类 型 的 运行 时 错误 。 用 户 定 义 的 异常 将 在 
第 9 章 和 第 10 章 讨论 。 


8.1 ”实验 1: 处 理 错误 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 

` 理解 铺 误 处 理 的 重要 性 。 
下 面 的 示例 说 明了 编译 错误 和 运行 时 错误 之 间 的 一 些 区 别 : 
示例 ch08 1a.sql 


DECLARE 
Уу numi INTEGER : 
v num2 INTEGER : 
у result NUMBER; 
BEGIN 
v_result = у поті / у пит2; 


&ѕЅУ поті; 
&sv пит2; 


DBMS ООТРОТ.РОТ LINE ('у result: !| |у result); 
END; 


这 个 示例 是 一 个 非常 简单 的 程序 ， 其 中 有 两 个 变量 ，v_num1 和 v_num2。 用 户 提供 这 些 变量 的 值 。 接 下 来 ，v_num1 被 v num2 除 ， 这 个 除法 的 结果 
存储 在 第 三 个 变量 v_result 中 。 最 后 ， 在 屏幕 上 显示 变量 v_result 的 值 。 


现在 ,假设 用 户 分 别 为 变量 v num1 和 v_num2 提 供 了 3 和 5 的 值 。 因 此 ， 该 示例 产生 下 面 的 输出 : 


ORA-06550: 11пе 6, column 13: 


PLS-00103: Encountered the symbol "=" when expecting one of the following: 
:= . (@%; 
The Symbol ":= was inserted before "=" to continue. 


你 可 能 会 注意 到 ， 该 脚本 没有 成 功 执行 。 在 第 6 行 遇 到 语法 错误 。 对 该 示例 的 仔细 检查 表明 ， 语 句 


у result = у numi / у пит2; 


在 应 使 用 赋值 运 算 符 的 地 方 包含 等 号 运算 符 。 该 语句 应 被 改写 如 下 : 


у result := у numl / у num2; 


再 次 运行 改正 后 的 示例 ， 将 产生 下 面 的 输出 : 


у result: .6 


这 个 示例 现在 执行 成 功 了 ， 因 为 已 经 改正 了 语法 错误 。 
接着 ， 如 果 你 将 变量 v num1 和 v_num2 的 值 分 别 改 为 4 和 0， 那 么 将 会 产生 如 下 输出 : 
ORA-01476: divisor is equal to zero 


ORA-06512: at line 6 
01476. 00000 - "divisor is equal to zero" 


虽然 这 个 示例 没有 包含 语法 错误 ,但 脚本 也 提前 终止 了 ， 这 是 因为 输入 的 除数 v_num2 的 值 为 0。 除 以 0 是 未 被 定义 的 ， 因 此 该 操作 会 导致 错误 。 


这 个 示例 说 明 ， 运 行 时 错误 不 能 由 编译 器 检测 出 来 。 换 句 话 说 ， 对 于 某 些 为 变量 v num1 和 v_num2 输 入 的 值 ， 本 示例 成 功 执 行 。 当 为 v num1 和 
v_num2 输 入 其 他 值 时 ， 该 示例 不 能 执行 。 因 此 ， 发 生 了 运行 时 错误 。 回 想 一 下 ， 编 译 器 无 法 检测 运行 时 错误 。 在 本 例 中 ， 发 生 运 行 时 错误 ， 因 为 编译 器 
不 知道 v num1 除 以 v_ num2 的 结果 。 这 个 结果 只 能 在 运行 时 确定 ， 因 此 ， 这 个 错误 被 称 为 运行 时 错误 。 


为 了 在 程序 中 处 理 这 种 类 型 的 错误 ， 必 须 添加 异常 处 理 程序 。 异 弟 处 理 部 分 的 结构 如 清单 8-1 所 示 。 
清单 8-1 异常 处 理 部 分 


EXCEPTION 
WHEN 异常 名 称 
ТНЕМ 
错误 处 理 语句 ; 


ы] 


需要 注意 的 是 ， 异 常 处 理 部 分 在 块 的 执行 部 分 之 后 出 现 。 因 此 ， 前 面 的 示例 可 以 被 改写 成 下 面 的 形式 (新 添加 的 语句 以 粗 体 显 示 ) : 
示例 ch08 1b.sql 


DECLARE 
Vv_numl INTEGER := &ѕу питмі; 


v_num2 INTEGER := &SV пит2; 

у result NUMBER; 
BEGIN 

v_result := у numl / у пит2; 

DBMS OUTPUT .PUT LINE ('у result: !| |у result) ; 
ЕХСЕРТТОМ 

WHEN ZERO DIVIDE 

THEN 

DBMS OUTPUT .PUT LINE ('A number cannot be divided by zero.'); 

END; 


示例 中 以 粗 体 显示 的 部 分 是 块 的 异 弟 处 理 部 分 。 当 使 用 值 分 别 为 4 和 0 的 变量 v_ num1 和 v_num2 执 行 这 个 版 本 的 示例 时 ， 将 产生 如 下 输出 : 


А number cannot be divided by zero. 


ШИН, Ау numi Ду_пит2, АУРА. ИШ, FEER PIERRA AEE Е. 


这 个 版 本 的 输出 说 明了 使 用 噶 芝 处 理 部 分 市 来 的 几 个 优点 。 你 可 能 注意 到 输出 看 起 来 比 以 前 的 版 本 更 整洁 。 尽 管 错误 消息 仍然 显示 在 屏幕 上 ， 但 输 
出 中 包含 了 更 多 的 信息 。 总 之 ， 它 更 适合 于 用 户 而 不 是 程序 员 。 


Oza 在 许多 场合 中 ， 用 户 不 具有 访问 代码 的 权限 。 因 此 ， 对 大 多 数 用 户 来 说 ， 引 用 一 个 程序 中 的 行 号 和 关键 字 没 什么 意义 。 


异常 处 理 部 分 允许 一 个 程序 执行 完成 ， 而 不 是 提前 终止 。 它 也 提供 了 对 错误 处 理 例 程 的 隔离 。 换 言 之 ， 对 于 一 个 特定 的 块 ， 所 有 误差 处 理 代码 都 可 
以 被 放置 在 一 个 单独 的 部 分 。 因 此 ， 程 序 的 逻辑 变 得 更 容易 跟踪 和 理解 。 最 后 ， 增 加 一 个 异常 处 理 部 分 实现 了 对 错误 的 事件 驱动 处 理 。 正 如 在 前 面 的 示 
例 所 示 ， 当 一 个 特定 的 异常 事件 ， 如 除 以 0 事件 友 生 时 ， 异 常 处 理 部 分 执行 ， 并 且 由 DBMS_OUTPUT.PUT_LINE 语 句 指定 的 错误 消息 被 显示 在 屏幕 上 。 


82 ”实验 2: 内 置 异常 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
ЖААЖ. 
如 前 所 述 ， 一 个 PL/SQL 块 的 结构 如 清单 8-2 所 示 。 


清单 8-2 ”PL/SQL 块 结构 


DECLARE 
BEGIN 

可 执行 语句 ; 
EXCEPTION 

ИНЕМ 异常 名 称 

THEN 

错误 处 理 语句 ; 

END; 


当 发 生 错 误 引 友 一 个 内 置 异常 时 ， 称 此 异常 是 隐 式 地 引 友 的。 换言之 ， 如 果 程 序 违 反 了 Oracle 的 规则 ， 挥 制 将 转 到 块 的 异常 处 理 部 分 。 此 时 ,错误 
处 理 语句 被 执行 。 在 块 的 异常 处 理 部 分 已 经 执行 之 后 ， 块 束 终 止 了 ， 也 惑 是 说 ， 控 制 不 会 返回 到 块 的 可 执行 部 分 。 下 面 的 示例 说 明了 这 一 点 : 


示例 ch08 2a.sql 


DECLARE 

у _ student пате VARCHAR2 (50); 
BEGIN 

SELECT first name||' '||last name 


INTO у student пате 
FROM student 
WHERE student іа = 101; 


DBMS OUTPUT .PUT LINE ('Student name is !| |у student пате) ; 
EXCEPTION 
WHEN МО DATA FOUND 
THEN 
DBMS OUTPUT .PUT LINE ('There is no such Student ' ) ; 
END; 


该 示例 产生 下 面 的 输出 : 


There is no such student 


因为 在 STUDENT 表 中 没有 学 生 1D 为 101 的 记录 ， 所 以 SELECT INTO 语 和 句 不 返回 任何 行 。 其 结果 是 ， 控 制 将 转 到 块 的 异常 处 理 部 分 ， 而 错误 消 
息 “There is no such student” (没有 这 样 的 学 生 ) 被 显示 在 屏幕 上 。 即 使 SELECT INTO 语 句 之 后 出 现 一 个 DBMS_OUTPUT.PUT_LINE 语 句 ， 它 也 不 
会 被 执行 ， 因 为 控制 已 经 转移 到 异常 处 理 部 分 。 控 制 永 远 不 会 返回 到 包含 第 一 个 DBMS OUTPUT.PUT_LINE 语 句 的 此 块 的 可 执行 部 分 。 


虽然 每 个 Oracle 运 行 时 错误 都 有 与 之 相关 的 编号 ， 但 它 在 异常 处 理 部 分 中 必 
括 以 下 错误 信息 : 


须 通过 其 名 称 来 处 理 。 在 本 章 前 一 个 实验 中 使 用 的 示例 的 一 个 输出 中 包 


ORA-01476: divisor is equal to zero 
其 中 ，ORA-01476 代 表 的 是 错误 编号 。 此 错误 编号 表示 名 为 ZERO_DIVIDE 的 错误 。 一 些 常见 的 Oracle 运 行 时 错误 在 PL/SQL 中 都 被 作为 异常 预定 
义 。 下 面 的 列表 列 出 了 这 些 预定 义 异 音 中 的 一 部 分 ， 并 解释 它们 是 如 何 被 引 故 的: 


· NO_DATA_FOUND: 当 一 个 未 调用 组 函数 ， 如 SUM 和 或 COUNT 的 SELECT INTO 话 名 不 返回 任何 行 时 引发 此 和 异常。 例如， 假设 你 对 STUDENT 表 发 


出 条 件 为 学 生 ID 等 于 101 的 SELECT INTO 语 句 ， 如 果 在 STUDENT 表 中 没有 符合 这 个 标准 (学 生 ID 等 于 101) 的 记录 ， 就 会 引发 NO_DATA_FOUND 异 
常 。 


当 SELECT INTO 语 句 调 用 了 一 个 组 国 数 ， 如 COUNT 时 ， 那 么 结果 集 永 远 不 会 为 空 。 当 在 对 STUDENT 表 发 出 的 SELECT INTO 语 句 中 使 用 COUNT 卫 
数 时 ， 对 于 学 生 1D 为 123 的 值 ， 它 将 返回 0。 因 此 ， 调 用 了 一 个 组 函数 的 SELECT INTO 语 句 永远 不 会 引 故 NO DATA FOUNDRY. 


.TOO_MANY ROWS: 当 一 个 SELECT INTO 语 名 返 回 多 行 时 引发 此 和 异常。 根据 定义 ， 一 个 SELECT INTO 只 能 返回 一 行 。 如 果 SELECT INTO 9) 


返回 多 行 时 ， 就 违反 了 SELECT INTO 语 名 的 定义 。 这 将 导致 引发 TOO_MANY ROWS 异常 。 


例如 ， 你 针对 STUDENT 表 发 出 查询 特定 邮政 编码 的 SELECT INTO 语 句 。 这 个 SELECT INTO 语 句 极 有 可 能 会 返回 多 行 ， 因 为 可 能 有 很 多 学 生 都 住 在 
同一 邮政 编码 区 域 。 


. ZERO_DIVIDE: 当 在 程序 中 进行 除法 运算 并 且 除 数 等 于 零 时 引发 此 异常 。 在 本 章 前 面 的 实验 中 的 示例 说 明了 这 个 异常 是 如 何 引 发 的 。 
. LOGIN_DENIED: 当 用 户 试 图 使 用 无 效 的 用 户 名 或 密码 登录 到 Ofracle 时 引发 此 异常 。 
. PROGRAM_ERROR: 当 一 个 PL/SQL 程 序 有 内 部 问题 时 引发 此 异常 。 


VALUE_ERROR: 当 转 换 或 大 小 不 匹配 错误 发 生 时 引发 此 异常 。 例 如 ， 假 设 你 把 一 个 学 生 的 姓 选 择 到 已 被 定义 为 YARCHAR2 (5) 的 变量 中 。 如 果 


该 学 生 的 姓 包 含 的 字符 超过 5 个 ， 就 会 引发 VALUE_ERROR 异 常 。 


· DUP_VALUE_ON_INDEX: 当 某 个 程序 试图 把 重复 值 存储 到 一 个 或 多 个 定义 了 唯一 索引 的 列 时 ， 引 发 此 异常 。 例 如 ， 假 设 你 想 在 SECTION 表 中 
插入 课程 号 为 25， 课 班 号 为 1 的 记录 ， 如 果 给 定 的 课程 号 和 课 班 号 的 记录 已 经 存在 于 SECTION 表 中 ， 就 会 引发 DUP_ VAL ОМ _INDEX 异 常 ， 因 为 在 这 些 
列 上 面 定义 了 唯一 索引 。 


到 目前 为 止 ， 你 已 经 看 到 了 那些 只 能 够 处 理 一 个 异 冲程 序 的 示例 。 例 如 ， 一 个 包含 一 个 异常 处 理 程 序 与 一 个 ZERO_DIVIDE 异 党 的 PLUSQL 块 。 然 而 ， 
很 多 时 候 ， 你 需要 在 PHSQL 块 中 处 理 不 同 的 异 带 。 此 外 ， 你 往往 需要 指定 在 一 个 特定 的 异 音 被 引 及 时， 必须 采取 的 不 同 操作 ， 如 下 面 的 示例 所 示 : 


示例 ch08 За.59 


DECLARE 
у student іа NUMBER := &8у Student 1а; 
у enrolled VARCHAR2(3) := 'NO'; 

BEGIN 


DBMS OUTPUT .PUT LINE ('Check if the student із enrolled'); 
SELECT 'ҮЕ5' 


INIO у enrolled 
FROM enrollment 
WHERE student іа = у student іа; 


DBMS OUTPUT .PUT 1ІМЕ ('Тһе student is enrolled into опе course'); 
EXCEPTION 
WHEN NO DATA FOUND 
THEN 
DBMS OUTPUT .PUT LINE ('Тһе student is not enrolled'); 


WHEN TOO MANY ROWS 
THEN 
DBMS_OUTPUT.PUT_LINE ('The student із enrolled in multiple courses'); 
END; 


这 个 示例 在 一 个 单独 的 异常 处 理 部 分 中 包含 了 两 个 异常 。 第 一 个 异常 ，NO_DATA FOUND， 如 果 在 ENROLLMENT 表 中 没有 特定 学 生 的 记录 时 将 被 
引发 。 第 二 个 异常 ，TOO_MANY_ROWS， 如 果 特 定 的 学 生 注 册 了 一 门 以 上 的 课程 时 会 被 引发 。 


试想 ， 如 果 你 用 三 个 不 同 的 学 生 ID 值 : 102、103 和 319 运 行 这 个 示例 会 友 生 什么 情况 。 在 第 一 次 运行 时 ， 学 生 ID 为 102， 示 例 将 产生 下 面 的 输出 : 


Check if the student is enrolled 
The student is enrolled in multiple courses 


在 这 种 情况 下 ， 第 一 个 DBMS_OUTPUT.PUT_LINE 语 句 被 执行 ， 并 在 屏幕 上 显示 消息 “Check if 
thehttp://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/15603/OEBPS/Text/...”。 然 后 执行 
SELECT INTO 语 句 。 你 可 能 已 经 注意 到 ，SELECT INTO 语 句 后 面 的 DBMS OUTPUT.PUT_LINE 语 句 没有 被 执行 。 当 使 用 学 生 ID 102 执 行 SELECT INTO 
语句 时 ， 它 返回 多 行 。 因 为 SELECT INTO 语 句 只 能 返回 单行 ， 所 以 控制 将 转 到 块 的 异常 处 理 部 分 。 接 下 来 ， 在 PL/SQL 块 中 引 友 适当 的 异常 。 其 结果 是 ， 
在 屏幕 上 显示 消息 “The student is enrolled in multiple courses” (此 学 生 注册 了 多 门 课程 ) ， 此 消息 是 由 异常 TOO_MANY_ROWS 指 定 的 。 


你 知道 吗 ? 
内 置 异 常 隐 式 地 引发 。 因 此 ， 你 只 需要 指定 针对 一 个 特定 的 异常 必须 采取 的 操作 。 
在 第 二 次 运行 中 ， 当 学 生 ID 为 103 时 ， 该 示例 将 产生 不 同 的 输出 : 


Check if the student is enrolled 
The student is enrolled into one course 


对 于 此 次 运行 ， 第 一 个 DBMS_OUTPUT.PUT_LINE 语 句 被 执行 ， 并 在 屏幕 上 显示 消息 “Check if 
thehttp://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/15603/OEBPS/Text/...”。 然 后 执行 
SELECT INTO 语 句 。 当 使 用 学 生 ID 103 执 行 SELECT INTO 语 句 时 ， 它 返回 单行 。 接 下 来 ,执行 SELECT INTO 语 句 后 面 的 DBMS_OUTPUT.PUT_LINE 语 
句 。 其 结果 是 ， 在 屏幕 上 显示 消息 “The student is enrolled into опе course” (此 学 生 已 注册 到 一 门 课程 )。 注 意 ， 对 于 变量 v student id 的 这 个 
值 ， 没 有 异常 被 引 友 。 


о 


在 第 三 次 运行 中 ， 当 学 生 1D 为 319 时 ， 该 示例 将 产生 下 面 的 输出 : 


Check if the student is enrolled 
The student 15 not enrolled 


正如 之 前 的 运行 那样 ， 第 一 个 DBMS_OUTPUT.PUT_LINE 语 句 被 执行 ， 并 在 屏幕 上 显示 消息 “Check if 
thehttp://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/15603/OEBPS/Text/...”。 然 后 执行 
SELECT INTO 语 句 。 当 使 用 学 生 ID 319 执 行 SELECT INTO 语 句 时 ,没有 行 被 返回 。 因 此 ， 控 制 将 转 到 PL/SQL 块 的 异常 处 理 部 分 ， 并 引发 适 当 的 异常 。 
在 这 种 情况 下 ， 引 友 了 NO_DATA_FOUND 异 常 ， 因 为 SELECT INTO 语 句 没 有 返回 单行 。 因 此 ， 在 屏幕 上 显示 “The student is пої enrolled” (该 学 
生 未 注册 ) 的 消息 。 


到 目前 为 止 ， 你 已 经 看 到 了 具有 特定 异常 ， 如 NO_DATA_ FOUND 和 ZERO DIVIDE 的 异常 处 理 部 分 的 示例 。 但 是 ， 你 不 总 能 事先 预测 出 PL/SQL 块 可 
能 会 引 友 哪些 异常 。 在 这 样 的 情况 下 ， 可 以 使 用 一 个 被 称 为 OTHERS 的 特殊 异常 处 理 程序 。 所 有 预定 义 的 Oracle 错 误 (异常 ) 都 可 以 使 用 OTHERS 处 理 程 


序 进行 处 理 。 
考虑 下 面 的 示例 : 
示例 ch08 4a.sq| 


DECLARE 
у instructor id NUMBER := &SV instructor іа; 
Vv_instructor пате VARCHAR2 (50) ; 
ВЕСІМ 
SELECT first пате | |' '||last пате 
ІМТО у instructor пате 
FROM instructor 
WHERE instructor іа = у instructor іа; 


DBMS ООТРОТ.РОТ LINE ('Instructor пате is !| |у instructor пате); 
ЕХСЕРТІОМ 
ИНЕМ OTHERS 
THEN 
DBMS OUTPUT .PUT LINE ('Ап error has occurred' ) ; 
END ; 


当 在 运行 时 为 变量 v instructor id 提供 一 个 100 的 值 时 ， 这 个 示例 将 产生 下 面 的 输出 : 
An error has occurred 


这 个 示例 说 明了 OTHERS 异 常 处 理 程序 的 用 法 ， 但 这 也 是 一 种 不 好 的 编程 习惯 。 异 常 OTHERS 已 经 被 引 友 ， 因 为 在 INSTRUCTOR 表 中 没有 教师 ID 为 
100 的 记录 。 


这 是 一 个 简单 的 示例 ， 其 中 可 以 猜测 应 使 用 哪个 异常 处 理 程序 。 然 而 ， 在 许多 情况 下 ， 你 可 能 会 友 现 许多 只 编写 了 一 个 异常 处 理 程序 OTHERS 的 程 
序 。 这 是 一 种 不 好 的 编程 习惯 ,因为 这 样 使 用 这 个 异常 处 理 程序 不 能 给 你 或 你 的 用 户 详 细 的 有 反馈。 你 其 实 不 知道 已 友 生 的 错误 是 什么 ， 而 且 用 户 也 不 知 
道 他 或 她 是 否 错误 地 输入 了 一 些 信息 。 在 使 用 OTHERS 处 理 程序 时 ， 其 他 特殊 的 错误 报告 遂 数 ， 如 SQLCODE 和 SQLERRM 对 于 提供 更 多 的 详细 信息 是 非 
常 有 用 的 。 你 将 在 第 10 草 了 解 它们 。 
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在 本 章 ， 我 们 开始 探讨 错误 处 理 和 PL/SQL 支 持 的 内 置 异常 的 概念 。 在 第 9 章 和 第 10 章 ， 你 将 继续 学 习 异 常 ， 其 范围 和 传播 ， 以 及 如 何 定 义 自己 的 异 
常 。 最 后 ， 在 第 24 章 ， 你 还 会 研究 如 何 借助 Oracle 的 内 置 包 DBMS UTILITY 和 UTL CALLSTACK 在 你 的 代码 中 产生 有 意义 的 错误 报告 。 你 还 将 看 到 ， 为 
什么 当 涉 及 错误 报告 时 ， 在 Oracle 12c 中 推出 的 UTL CALLSTACK 包 是 一 个 更 好 的 选择 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


在 本 章 ， 你 将 学 习 如 下 内 容 : 


ЯЕ 5, 


- 用 户 定义 的 异常 
出 常 传播 


在 第 8 草 ， 我 们 探讨 了 错误 处 理 和 内 置 异常 的 概念 。 在 本 草 ， 我 们 将 通过 研究 异常 是 否 能 捕获 在 一 个 PL/SQL 块 的 声明 部 分 、 可 执行 部 分 或 异常 处 理 
部 分 中 出 现 的 运行 时 错误 来 继续 这 种 探讨 。 我 们 还 将 学 习 如 何 定义 自己 的 异常 ， 以 及 如 何 重新 引 友 异常 。 


91 实验 1: 异常 作用 域 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
理解 异常 的 作用 域 。 


你 已 经 熟悉 了 作用 域 这 个 术语 ， 例 如 ， 一 个 变量 的 作用 域 。 尽 管 变量 和 有 异 音 服务 于 不 同 的 目的 ， 但 它们 都 适用 相同 的 作用 域 规 则 。 这 些 规则 最 好 是 
一 个 示例 来 说 明 。 


示例 ch09 1a.sql 


DECLARE 
v_student_id NUMBER := &sv student id; 
у пате VARCHAR2 (30); 

BEGIN 
SELECT RTRIM (first пате) ||' '||RTRIM(last name) 


INTO v name 
FROM student 


WHERE student іа = у student id; 


DBMS ООТРОТ.РОТ LINE ('Student name is '||у_пате); 
EXCEPTION 
WHEN МО РАТА FOUND 
THEN 
DBMS OUTPUT.PUT LINE ('There is no such student'); 
END; 


在 这 个 示例 中 ， 根 据 在 运行 时 提供 的 一 个 学 生 ID 的 给 定 值 ， 学 生 的 姓名 被 显示 在 屏幕 上 。 如 果 在 STUDENT 表 中 没有 对 应 于 v_student_ id 值 的 记录 ， 
MASINO DATA FOUNDE. AH, BAR ENO DATA FOUNDERS XDR, 或 者 说 这 个 块 是 此 异常 的 作用 域 。 换 言 之 ， 异 常 的 作用 域 是 此 


异常 覆盖 的 块 的 一 部 分 
现在 ， 你 可 以 展开 这 种 理解 (新 添加 的 语句 以 粗 体 显示 ) : 


示例 ch09 10.54] 


<<outer block>> 


DECLARE 
у student іа NUMBER := &sv student іа; 
у_пате VARCHAR2 (30) ; 
у total NUMBER (1); 
BEGIN 
SELECT RTRIM(first name) ||' '||RTRIM(last name) 


INTO у пате 
FROM student 
WHERE student іа = v student іа; 


DBMS_OUTPUT .PUT_LINE ('Student пате із '||у_пате); 


<<іппег block>> 
BEGIN 
SELECT COUNT (*) 
INTO v total 
FROM enrollment 
WHERE student іа = у student id; 


DBMS OUTPUT.PUT LINE ('Student is registered for '||у total||' course(s)'); 
EXCEPTION 
WHEN VALUE ERROR OR INVALID NUMBER 
THEN 
DBMS OUTPUT.PUT_LINE ('An error has occurred'); 
END; 
EXCEPTION 
WHEN МО DATA FOUND 
THEN 
DBMS _ OUTPUT .PUT LINE ('There is no such student'); 


END; 


示例 的 此 新 版 本 包括 一 个 内 层 块 。 此 块 具有 与 外 层 块 类 似 的 结构 ， 也 就 是 说 ， 它 有 一 个 SELECT INTO 语 句 和 用 来 处 理 错误 的 异常 部 分 。 当 在 内 层 块 
发 生 VALUE_ERROR 或 INVALID_NUMBER 错 误 时 ， 就 引发 此 异常 。 


注意 ， 异 剃 VALUE_ERROR 和 INVALID_NUMBER 是 仅 为 内 层 块 定义 的 。 因 此 ， 仪 当 它 们 在 内 层 块 引 友 时 才 会 得 到 处 理 。 如 果 这 些 错误 之 一 发 生 在 外 
层 块 ， 那 么 此 程序 将 无 法 成 功 结束 。 


与 此 相反 ， 异 常 NO_DATA_FOUND 已 经 在 外 层 块 定义 了 ， 因 此 ， 它 是 全 局 的 内 层 块 。 然 而 ， 这 个 版 本 的 示例 从 未 在 内 层 块 中 引 友 
NO_DATA_FOUND 异 常 。 你 认为 为 什么 会 是 这 样 的 情况 呢 ? 


你 知道 吗 ? 


如 果 在 一 个 块 中 定义 一 个 异常 ， 那 么 它 对 于 此 块 是 局 部 的 。 但 是 ， 它 对 于 由 此 块 封闭 的 任何 块 都 是 全 局 的 。 换 和 句 话说 ， 在 庶 套 块 的 情况 下 ， 在 外 层 
块 中 定义 的 任何 异常 对 于 其 内 层 块 都 是 全 局 的 。 


注意 ， 当 示例 被 更 改 为 异常 NO_DATA_FOUND 可 由 内 层 块 引 友 时 ,会友 生 什么 情况 (所 有 更 改 都 以 粗 体 显示 ) 。 


示例 ch09 1c.sq| 


BEGIN 
SELECT RTRIM (first пате) | |' '||RTRIM(last пате) 
INTO у пате 
FROM Student 
WHERE student іа = у student іа; 


DBMS _ OUTPUT .PUT LINE ('Student пате is '||у_пате); 


<<inner block>> 
BEGIN 
SELECT 'Ү! 
INTO у registered 
FROM enrollment 
WHERE student id = v student id; 


DBMS_OUTPUT.PUT_LINE ('Student is registered'); 


EXCEPTION 
WHEN VALUE ERROR OR INVALID NUMBER 
THEN 
DBMS OUTPUT.PUT LINE ('An error has occurred'); 
END; 
EXCEPTION 
WHEN NO DATA FOUND 
THEN 
DBMS _ OUTPUT .PUT LINE ('There is no such student'); 
END; 


示例 的 此 新 版 本 有 一 个 不 同 的 SELECT INTO 语 句 。 为 了 回答 前 面 提出 的 问题 ， 此 内 层 块 可 以 引 友 NO_DATA_FOUND 异 单 ， 这 是 因为 SELECT INTO 
语句 不 包含 组 函数 COUNT0。 这 个 函数 总 是 会 返回 一 个 结果 ， 所 以 当 9ELECT INTO 语 句 没 有 返回 行 时 ，COUNT (*) 返回 等 于 零 的 值 。 


现在 ， 考 虑 给 学 生 1D 提 供 284 的 值 时 ， 由 该 示例 产生 的 输出 : 


Student пате 15 Salewa Lindeman 
There is no such student 


你 可 能 已 经 注意 到 ， 这 个 示例 只 产生 了 部 分 输出 。 尽 管 你 能 看 到 学 生 的 名 字 ， 但 显示 了 表明 该 学 生 不 存在 的 错误 消息 。 显 示 此 错误 消息 ， 是 因为 在 
内 层 块 中 引发 了 NO_DATA FOUNDRY. 


外 层 块 的 SELECT INTO 语 句 返 回 学 生 的 姓名 ， 这 然后 由 第 一 个 DBMS OUTPUT.PUT_LINE 语 句 显示 在 屏幕 上 。 接 着 ， 控 制 将 转 到 内 层 块 。 内 层 块 的 
SELECT INTO 语 句 不 返回 任何 行 。 因 此 ， 出 现 错误 并 引发 NO РАТА FOUND 异常 。 


接 下 来 ，PL/SQL 试 图 在 内 层 块 中 找到 一 个 NO_DATA FOUND 异 常 的 处 理 程序 。 因 为 在 内 层 块 中 没有 这 样 的 处 理 程序 ， 所 以 控制 被 转 到 外 层 块 的 异 
常 部 分 。 外 层 块 的 异常 部 分 包含 NO РАТА FOUND 异常 的 处 理 程序 。 因 此 ， 该 处 理 程序 执行 ， 并 且 消 息 “There is no such student” (没有 这 样 的 学 
生 ) 被 显示 在 屏幕 上 。 这 个 过 程 就 是 所 谓 的 异常 传播 ， 实 验 9.3 中 对 此 进行 了 详细 的 讨论 。 


请 注意 ， 这 里 提供 的 示例 仅 供 参考 。 当 前 这 个 版 本 并 不 是 非常 有 用 。 内 层 块 的 SELECT INTO 语 句 容易 引 友 男 一 个 异常 ，TOO_MANY_ROWS， 本 示 
例 没有 对 它 进行 处 理 。 此 外 ， 当 内 层 块 引发 NO_DATA_FOUND 异 常 时 ,错误 消息 “There is no such student” 是 不 恰当 的 摘 述 。 


9.2 30002: ВРЕ АЈ 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
“ 使 用 用 户 定义 的 异常 。 


你 通常 需要 在 你 的 程序 中 人 处理 特定 于 你 编写 的 程序 的 问题 。 例 如 ， 假 设 你 的 程序 要 求 用 户 输 入 学 生 ID 值 。 然 后 将 这 个 值 赋予 变量 v_student _id, 在 
此 程序 中 以 后 将 用 到 它 。 通 常 ， 你 想 要 的 ID 是 正 数 。 但 是 ， 如 果 用 尸 错误 地 输入 了 一 个 负数 ， 却 没有 友 生 错误 ， 这 是 因为 变量 v_student_id 已 被 定义 为 


一 个 数字 ， 并 且 用 户 已 提供 了 一 个 合法 的 数值 。 因 此 ， 你 可 能 要 实现 目 己 的 异 音 来 处 理 这 种 情况 。 


这 种 类 型 的 异常 被 称 为 用 户 定 义 的 异常 ， 因 为 它 是 由 程序 员 定 义 的 。 因 此 ， 在 这 样 的 异常 可 以 使 用 之 前 ， 必 须 将 其 声明 。 用 户 定 义 的 异常 是 在 一 个 
PL/SQL 块 的 声明 部 分 声明 的 ， 如 清单 9-1 所 示 。 


清单 9-1 用 户 定 义 异 弟 的 声明 


DECLARE 
异常 名 称 EXCEPTION; 


请 注意 ， 这 个 声明 看 起 来 类 似 于 一 个 变量 声明 。 也 束 是 说 ， 你 指定 一 个 异常 名 称 ， 后面 罕 跟着 关键 字 EXCEPTION。 


考虑 下 面 的 代码 片段 


示例 


DECLARE 
e invalid id EXCEPTION; 


在 此 代码 片段 中 ， 异 常 的 名 称 是 用 字母 “e” 作 为 前 综 的 ， 虽 然 这 不 是 语法 必需 的 ,但 是 ， 它 可 以 让 你 的 变量 名 和 异常 名 有 所 区 分 。 


一 旦 异常 被 声明 ， 束 可 在 块 的 异常 处 理 部 分 中 指定 与 此 异常 相关 联 的 可 执行 语句 。 异 常 处 理 部 分 的 格式 与 内 置 异 常 是 一 样 的 。 考 虑 下 面 的 代码 片 


示例 


DECLARE 
е invalid іа EXCEPTION; 
BEGIN 


EXCEPTION 
WHEN е _ invalid id 
THEN 
DBMS OUTPUT .PUT 1ІМЕ ('Ап ID cannot be negative'); 
END; 


你 已 经 知道 ， 内 置 异 常 是 隐 式 地 引发 的 。 换 句 话 说 ， 当 特定 的 错误 发 生 时 ， 与 该 错误 有 关 的 一 个 内 置 异 常 就 会 被 引发 。 当 然 ， 这 里 假设 你 已 经 在 程 
序 的 异常 处 理 部 分 包含 了 这 个 异常 。 例 如 ， 当 SELECT INTO 语 句 返 回 多 行 时 引发 一 个 TOO MANY ROWS 异 常 。 


用 户 定 义 的 异常 必须 被 显 式 地 引 友 。 换 句 话说 ， 你 需要 在 你 的 程序 中 指定 ， 在 哪些 情况 下 必须 引 友 异常 ， 如 清单 9-2 所 示 。 


清单 9-2 引 友 一 个 用 尸 定 义 的 异常 


DECLARE 
异常 名 称 EXCEPTION; 
BEGIN 


ТЕ Ф 
THEN 
RAISE 异常 名 称 ; 
END IF; 


EXCEPTION 
WHEN 异常 名 称 
THEN 
错误 处 理 语句 ; 
END; 


在 这 种 结构 中 ， 必 须 引 帮 用 户 定义 的 异 音 的 情况 下 都 是 借助 于 IF 语句 确定 的 。 如 果 条 件 的 计算 结果 为 TRUE， 则 借助 RAISE 语 句 引发 一 个 用 户 定 义 的 
异常 。 如 果 条 件 的 计算 结果 为 FALSE， 则 程序 继续 其 正常 运行 。 换 句 话说 ， 崇 跟着 IF 语 句 的 语句 被 执行 。 需 要 注意 的 是 ， 任 何 形式 的 IF 语 句 都 可 用 于 检查 


何 时 必须 引发 一 个 用 户 定 义 的 异常 。 
在 下 面 这 个 基于 本 实验 较 早 提供 的 代码 片段 的 示例 中 ， 你 会 看 到 ， 当 用 户 为 变量 v_ student id 输 入 一 个 负数 时 ， 区 会 引 友 e_invalid_id 异 常 。 
示例 ch09 2a.sql 


DECLARE 
у student іа STUDENT .STUDENT ID%TYPE := &sv student іа; 
у total courses NUMBER; 
е invalid іа ЕХСЕРТІОМ; 
BEGIN 
IF у student іа < 0 
THEN 
RAISE е invalid id; 
END IF; 


SELECT COUNT (*) 
INTO v total courses 
FROM enrollment 
WHERE student id = v student id; 


DBMS _ OUTPUT .PUT _ LINE ('The student is registered for'||v total courses||'courses'); 
DBMS OUTPUT.PUT_LINE ('No exception has been raised'); 


EXCEPTION 
WHEN e_invalid id 
THEN 
DBMS OUTPUT .PUT LINE ('Ап ID cannot be negative'); 
END; 


在 这 个 示例 中 ， 异 常 e invalid id 借助 |F 语 句 被 引发 。 一 旦 提供 了 变量 v_ student id 的 值 ， 这 个 数字 值 的 正 负 性 就 会 被 检查 。 如 果 该 值 小 于 零 ， 则 IF 
语句 的 计算 结果 为 TRUE， 并 且 引 发 e_invalid_id 异 常 。 反 过 来 ， 控 制 将 转 到 块 的 异常 处 理 部 分 。 然 后 ， 执 行 与 此 异常 相关 联 的 语句 。 在 这 种 情况 下 ， 将 在 
屏幕 上 显示 消息 “An ID cannot be negative” (ID 不 能 为 负 ) 。 如 果 该 v_student_id 输 入 的 值 是 正 的 ， 则 IF 语 句 产生 FALSE， 并 且 执 行 块 体 中 的 其 余 语 
п), 


考虑 分 别 用 两 个 v_student _id 值 ，102 和 -102 来 执行 这 个 示例 。 本 示例 的 第 一 次 运行 (学 生 ID 是 102) 将 产生 以 下 的 输出 : 


Тһе student іѕ registered for 2 courses 
No exception has been raised 


对 于 此 次 运行 ， 用 户 为 变量 v_student id 提供 了 一 个 正 值 。 因 此 ，IF 语 句 的 计算 结果 为 FALSE， 并 且 SELECT INTO 语 句 确定 在 IDENROLLMENT 表 中 
给 定 的 学 生 有 多 少 记录 。 接 着 ， 在 屏幕 上 显示 消息 “The student is registered for 2 courses” #0 “No exception has been raised”。 此 时 ,PL/SQL 
块 的 块 体 已 经 执行 完毕 。 


该 示例 的 第 二 次 运行 (学 生 ID 是 -102) 将 产生 以 下 的 输出 : 


An ID cannot be negative 


对 于 此 次 运行 ， 用 户 为 变量 v_student id 输 入 了 一 个 负 值 。IF 语 句 的 计算 结果 为 TRUE， 并 引 友 e_invalid_id 异 常 。 因 此 ， 执 行 的 控制 将 转 到 块 的 异常 
处 理 部 分 ， 并 且 在 屏幕 上 显示 消息 “An ID cannot be negative” 。 


ға RAISE 语 多 应 该 与 IF 语句 一 起 使 用 。 否 则 ， 每 次 执行 时 ， 执 行 的 控制 都 会 被 转 到 块 的 异常 处 理 部 分 。 考 虑 下 面 的 示例 : 


DECLARE 

e test exception EXCEPTION; 
BEGIN 

DBMS OUTPUT.PUT LINE ('Exception has not been raised'); 

RAISE е test exception; 

DBMS OUTPUT.PUT LINE ('Exception has been raised'); 
EXCEPTION 

WHEN е _ test _ exception 

THEN 

DBMS ООТРОТ.РОТ LINE ('Ап error has occurred'); 

END; 


本 示例 每 次 运行 时 ， 都 将 产生 下 面 的 输出 : 


Exception has not been raised (异常 未 被 引发 ) 
An error has occurred (发 生 了 错误 ) 


尽管 没有 发 生 错 误 ， 控 制 还 是 转 到 了 异常 处 理 部 分 。 在 引发 与 某 个 错误 相关 联 的 异常 之 前 ， 必 须 检 查 是 否 发 生 了 此 错误 。 


适用 于 用 户 定 义 异 常 的 作用 域 规则 与 适用 于 内 置 异 常 的 作用 域 规 则 是 相同 的 。 在 内 层 块 中 声明 的 异常 ， 必 须 在 内 层 块 中 引 友 ， 并 且 必 须 在 内 层 块 的 
异常 处 理 部 分 中 定义 。 考 虑 下 面 的 示例 : 


示例 ch09 3a.sq| 


outber: рІоскК>> 
BEGIN 
DBMS OUTPUT.PUT LINE ('Outer block'); 


<<inner block>> 
DECLARE 

е my exception ЕХСЕРТІОМ; 
BEGIN 

DBMS OUTPUT.PUT LINE ('Inner block'); 
EXCEPTION 

ИНЕМ е my exception 

THEN 

DBMS OUTPUT .PUT LINE ('Ап error has occurred'); 

END; 


IF 10 > &SV number 
THEN 
RAISE e my exception; 
END IF; 
END; 


在 本 示例 中 ， 异 常 e_ my _exception 是 在 内 层 块 中 声明 的 。 但 是 ， 你 正 试图 在 外 层 块 引 友 这 个 异常 。 这 个 示例 会 导致 一 个 语法 错误 ， 因 为 一 旦 内 层 块 
终止 ， 在 内 层 块 中 声明 的 异常 就 停止 存在 。 因 此 ， 在 运行 时 为 本 示例 提供 11 的 值 时 ， 它 将 产生 如 下 输出 : 


ОРА- 06550: line 19, column 13: 
PLS-00201: identifier 'Е MY EXCEPTION' must be declared 


ORA-06550: line 19, column 7: 
PL/SQL: Statement ignored 


注意 ， 错 误 消 息 
PLS-00201: identifier 'Е МҮ ЕХСЕРТТОМ' must be declared 


是 当 你 尝试 使 用 尚未 声明 的 变量 时 得 到 的 同样 的 错误 消息 。 


93 20193: 异常 传播 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
:了解 异常 传播 。 
重新 引发 异常。 


我 们 已 经 看 到 了 在 PL/SQL 块 的 可 执行 部 分 友 生 运行 时 错误 时 ， 如 何 引 友 不 同类 型 的 异 弟 。 然 而 ， 运 行 时 错误 也 可 能 发生 在 块 的 声明 部 分 或 块 的 异常 
处 理 部 分 。 管 理 在 这 些 情况 下 如 何 引 友 异 党 的 规则 被 称 为 异常 传播 。 


第 一 种 情况 是 在 PHSQL 抉 的 可 执行 部 分 友 生 运行 时 错误 。 这 种 情况 应 被 视 为 复习 ， 因 为 在 本 章 前 面 给 出 的 示例 已 经 说 明了 当 块 的 可 执行 部 分 友 生 错 
误 时 ， 将 如 何 引 友 异 常 。 


如 果 有 一 个 特定 的 异常 与 特定 错误 相关 联 ， 那 么 控制 转 到 块 的 异常 处 理 部 分 。 一 旦 与 异常 相关 联 的 语句 被 执行 ， 控 制 就 转 到 主机 环境 或 封闭 块 。 如 
果 此 错误 没有 异常 处 理 程序 ， 那 么 异常 被 传播 到 封闭 块 (外 层 块 ) 。 然 后 重复 进行 刚才 描述 的 步骤 。 如 果 没 有 发现 异常 处 理 程序 ， 该 程序 束 停 止 执 行 ， 
并 且 控 制 被 转 到 主机 环境 。 


其 次 ， 考 虑 第 二 种 情况 ， 在 块 的 声明 部 分 友 生 运行 时 错误 。 如 果 没 有 外 层 块 ， 该 程序 束 停 止 执 行 ， 并 且 控 制 转 到 主机 环境 。 考 虑 下 面 的 示例 : 


示例 ch09 4a.sql 


DECLARE 

у test var CHAR(3) := 'ABCDE'; 
BEGIN 

DBMS OUTPUT .PUT LINE ('This is a test'). 
EXCEPTION 

WHEN INVALID NUMBER OR VALUE ERROR 

THEN 

DBMS OUTPUT .PUT LINE ('Ап error has occurred'); 

END; 


在 执行 时 ， 这 个 示例 产生 下 面 的 输出 : 


ORA-06502: PL/SQL: numeric or value error: character string buffer too small 
ORA-06512: at line 2 


在 这 个 示例 中 ， 块 的 声明 部 分 中 的 赋值 语句 造成 错误 。 尽 管 这 样 的 错误 存在 一 个 异常 处 理 程序 ， 此 块 还 是 无 法 成 功 执行 。 根 据 这 个 示例 ， 你 可 以 得 
出 结论 ， 如 果 在 PL/SQL 块 的 声明 部 分 中 发 生 运 行 时 错误 ， 那 么 这 个 块 的 异常 处 理 部 分 是 不 能 捕获 此 错误 的 。 


接 下 来 ， 考 虑 同样 的 示例 采用 嵌 套 PL/SQL 块 的 修改 版 本 (更 改 以 粗 体 显示 ) 。 


示例 ch09 4b.sql 


<<outer block>> 
BEGIN 
<<inner block>> 
DECLARE 
у test var CHAR(3) := 'ABCDE'; 
BEGIN 
DBMS _ OUTPUT .PUT LINE ('This is a test'); 
EXCEPTION 
WHEN INVALID NUMBER OR VALUE ERROR 
THEN 
DBMS OUTPUT .PUT LINE ('An error has occurred іп the inner block'); 
END; 
EXCEPTION 
WHEN INVALID NUMBER OR VALUE ERROR 
THEN 
DBMS OUTPUT.PUT LINE ('An error has occurred in the program'); 
END; 


在 执行 时 ， 这 个 示例 产生 下 面 的 输出 : 


Ап error has occurred іп the program 


在 此 版 本 的 示例 中 ，PL/SQL 程 序 块 被 另 一 个 块 封闭 ， 并 且 此 程序 是 能 够 完成 的 。 在 这 种 情况 下 ， 当 内 层 块 的 声明 部 分 中 友 生 错误 时 ,会 引 友 在 外 层 
块 定义 的 异常 。 因 此 ， 可 以 得 出 结论 ， 当 内 层 块 的 声明 部 分 中 友 生 运行 时 错误 时 ， 异 党 立即 传播 到 封闭 (外 层 ) Ж. 


最 后 ， 考 虑 第 三 种 情况 ， 在 块 的 异 弟 处 理 部 分 友 生 运行 时 错误 。 正 如 前 面 的 情况 ， 如 果 没 有 外 层 块 ， 程 序 就 停止 执行 ， 并 且 控 制 转 到 主机 环境 。 考 
虑 下 面 的 示例 : 


示例 ch09 5a.sql 


DECLARE 
v test var CHAR(3) := 'АВС'; 
BEGIN 
у test Var := '1234'; 
DBMS OUTPUT.PUT LINE ('у test var: '||v test уаг); 
EXCEPTION 
WHEN INVALID NUMBER OR VALUE ERROR 
THEN 
v test уаг := 'АВСр'; 
DBMS OUTPUT .PUT 1ІМЕ ('Ап error has оссиггей'!); 
END; 


在 执行 时 ， 这 个 示例 产生 下 面 的 输出 : 


ORA-06502: PL/SQL: numeric or value error: character string buffer too small 
ORA-06512: at line 9 
ORA-06502: PL/SQL: numeric or value error: character string buffer too small 


正如 你 所 看 到 的 ， 在 块 的 执行 部 分 中 赋值 语句 导致 错误 。 反 过 来 ， 控 制 被 转移 到 块 的 异常 处 理 部 分 。 然 而 ， 块 的 异常 处 理 部 分 中 的 赋值 语句 也 引起 
了 同样 的 错误 。 因 此 ， 本 示例 的 输出 显示 了 两 次 相同 的 错误 消息 。 第 一 个 消息 是 由 块 的 可 执行 部 分 的 赋值 语句 产生 的 ， 而 第 二 个 消息 是 由 块 的 异常 处 理 
部 分 的 赋值 语句 产生 的 。 根 据 这 个 示例 ， 你 可 以 得 出 结论 ， 在 PL/SQL 块 的 异常 处 理 部 分 中 友 生 运行 时 错误 时 ， 这 个 块 的 异常 处 理 部 分 不 能 阻止 此 错误 。 


接 下 来 ， 考 虑 相同 的 示例 市 有 抱 套 PL/SQL 块 的 修改 后 版 本 〈 受 影响 的 语句 以 粗 体 显示 ) : 


示例 ch09 50.54] 


<<outer block>> 


BEGIN 
<<inner block>> 
DECLARE 
у севе var CHAR(3) := 'АВС'; 
BEGIN 
у севе уак := '1234'; 
DBMS _ OUTPUT .PUT LINE ('у test _ var: '||v test var) ; 
EXCEPTION 
WHEN INVALID NUMBER OR VALUE ERROR 
THEN 
у test var := 'ABCD'; 
DBMS OUTPUT .PUT LINE ('Ап error has occurred іп the inner block'); 
END; 
EXCEPTION 
WHEN INVALID NUMBER OR VALUE ERROR 
THEN 
DBMS OUTPUT.PUT LINE ('An error has occurred in the program'); 
END; 


在 执行 时 ， 该 版 本 将 产生 下 面 的 输出 : 


An error has occurred іп the program 


在 此 版 本 的 示例 中 ，PLSQL 程 序 块 由 另 一 个 块 封 玉 ， 并 且 该 程序 能 够 完成 。 在 这 种 情况 下 ， 当 内 层 块 的 异 音 处 理 部 分 中 友 生 错误 时 ， 会 引 友 在 外 层 
块 定义 的 异常 。 因 此 ， 可 以 得 出 结论 ， 当 内 层 块 的 异常 处 理 部 分 发 生 运 行 时 错误 上 时， 异常 会 立即 传播 到 封闭 它 的 块 。 


在 前 面 的 两 个 示例 中 ， 异 常 都 是 由 此 块 的 异常 处 理 部 分 中 的 运行 时 错误 隐 合 地 引 友 的 。 然 而 ， 异 常 也 可 以 由 RAISE 语 句 显 式 地 在 此 块 的 异常 处 理 部 分 
中 引 友 。 考 虑 下 面 的 示例 : 


示例 ch09 6a.sd| 


<<0üter Б1осК>> 
DECLARE 
е ехсерііоп1і EXCEPTION; 
е ехсерііоп2 EXCEPTION; 
BEGIN 
<<inner block>> 
BEGIN 
RAISE е exceptionl; 
EXCEPTION 
WHEN е ехсерС1оп1 
THEN 
RAISE е except1on2 ; 
ИНЕМ е exception2 
THEN 
DBMS OUTPUT .PUT LINE ('Ап error has occurred іп the inner block'); 
END ; 
EXCEPTION 
ИНЕМ е exception2 
THEN 
DBMS OUTPUT .PUT LINE ('An error has occurred іп the program' 1) ; 
END ; 


该 示例 将 产生 下 面 的 输出 : 
Ап error has occurred іп the program 
此 块 的 声明 部 分 包含 两 个 异常 ，e_exception1 和 e_exception2 的 声明 。 异 常 e exception1 在 内 层 块 通过 RAISE 语 句 引 友 。 在 内 层 块 的 异常 处 理 部 


分 ，e_exception1 试 图 引发 e exception2。 尽 管内 层 块 存在 e_ exception2 的 异常 处 理 程序 ， 但 控制 仍 转移 到 外 层 块 。 这 是 因为 只 可 以 在 块 的 异常 处 理 部 
分 中 引发 一 个 异常 。 只 有 当 一 个 异常 被 处 理 后 ， 才 可 以 引发 另外 的 异常 ， 但 不 能 同时 引发 两 个 或 多 个 异常 。 此 执行 流程 如 图 9-1 所 示 。 


-- outer block 
DECLARE 


е ехсеріёіоп1 EXCEPTION; 
е ехсерііоп2 EXCEPTION; 
BEGIN 
-- inner block 
BEGIN 
RAISE е exceptionl; 
| ЕХСЕРТТОМ 
WHEN е ехсерііоп1 
ТНЕМ 


ИНЕМ е ехсеріёіоп2 


这 部 分 代码 不 会 执行 THEN 
DBMS OUTPUT .PUT LINE (`Ап error has occurred іп the inner block’); 


END ; 
EXCEPTION 


END ; 


图 9-1 示例 ch09_6a.sql 的 执行 流 


实质 上 ， 当 异常 e exception2 在 内 层 块 的 异常 处 理 部 分 中 被 引 友 时 ， 它 不 能 在 同一 异常 处 理 部 分 中 被 处 理 。 因 此 ， 由 矩形 括号 包围 的 部 分 代码 永远 
不 会 执行 。 相 反 ， 控 制 将 转 到 外 层 块 的 异常 处 理 部 分 ， 并 且 在 屏幕 上 显示 “An error has occurred in the program” 的 消息 。 

Os 当 一 个 异常 在 不 具有 适当 的 异种 处 理 机 制 ， 并 且 不 被 另 一 个 块 包 围 的 PLVSQL 块 中 引发 时 ， 控 制 被 转移 到 主机 环境 ， 此 程序 不 能 够 成 功 地 
完成 。 下 面 的 代码 片段 说 明了 这 种 情况 : 


DECLARE 
е ехсерС1оп1 EXCEPTION; 


ВЕСІМ 
RAISE е ехсерсіопі1; 


END ; 


ОВА- 06510: PL/SQL: unhandled user-defined exception 
ORA-06512: at line 4 


请 注意 ， 此 行为 也 适用 于 内 置 异 常 ， 参 见 第 8 章 。 
重新 引发 异常 


在 某 些 情 况 下 ， 你 可 能 希望 能 够 当 友 生 某 种 类 型 的 错误 时 ， 停 止 你 的 程序 。 换 句 话说 ， 你 可 能 要 处 理 内 层 块 中 的 异常 ， 然 后 把 它 传递 给 外 层 块 。 这 
个 过 程 被 称 为 重新 引 友 异常 。 下 面 的 示例 有 助 于 说 明 这 一 点 : 


示例 ch09 7a.sq| 


<<оџсег р1ІосК>> 
DECLARE 
e exception EXCEPTION ; 
BEGIN 
<<inner block>> 
BEGIN 
RAISE е exception; 
EXCEPTION 
ИНЕМ е exception 
THEN 
RAISE; 
END; 
EXCEPTION 
WHEN e_exception 
THEN 
DBMS _OUTPUT.PUT_LINE ('An error has occurred'); 
END; 


在 本 例 中 ， 异 常 e_exception 首 先 在 外 层 块 声明 ， 然 后 在 内 层 块 引发 。 因 此 ， 控 制 被 转移 到 内 层 块 的 异常 处 理 部 分 。 在 块 的 异常 处 理 部 分 的 RAISE 语 
导致 此 异常 传播 到 外 层 块 的 异常 处 理 部 分 。 注 意 ， 当 RAISE 语 句 用 于 内 层 块 的 异常 处 理 部 分 时 ， 它 后 面 不 带 异常 名 称 。 


在 运行 时 ， 此 示例 将 产生 下 面 的 输出 : 


Ап error has occurred 


Oza 当 一 个 异常 在 不 被 任何 其 他 块 包围 的 块 中 被 重新 引发 时 ， 程 序 就 无 法 成 功 完成 。 考 虑 下 面 的 示例 : 


DECLARE 

е exception ЕХСЕРТІОМ; 
BEGIN 

RAISE е exception; 
EXCEPTION 

WHEN e_exception 

THEN 

RAISE; 

END; 


在 运行 时 ， 此 示例 将 产生 下 面 的 输出 : 


ORA-06510: PL/SQL: unhandled user-defined exception 
ORA-06512: at line 7 


94 Ма 
在 本 草 ， 我 们 了 解 了 异 弟 的 作用 域 和 传播 ， 并 且 学 到 了 如 何 定 义 和 引 友 上 自 己 的 异常 。 此 外 ， 我 们 还 学 会 了 如 何 重新 引 友 异常 。 在 第 10 草 ， 你 将 学 习 
如 何 借助 Oracle 的 内 置 功能 SQLCODE 和 SQLERRM ， 在 你 的 代码 中 产生 有 意义 的 错误 报告 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


在 本 章 ， 你 将 学 习 如 下 内 容 : 

. RAISE_APPLICATION_ERROR 
. EXCEPTION_INIT 编 译 指示 

. SQLCODE 和 SQLERRM 


在 第 8 章 和 第 9 草 ， 我 们 学 到 了 错误 处 理 ， 以 及 内 置 异 常 和 用 户 定 义 的 异 弟 的 概念 。 我 们 还 了 解 了 支配 异常 作用 域 、 传 播 ， 以 及 如 何 重新 引 友 异常 的 
规则 。 


在 本 章 ， 我 们 将 用 高 级 课题 研究 来 完成 对 错误 处 理 和 异常 的 探讨 。 通 过 本 章 的 学 习 ， 你 将 能 够 把 一 个 错误 号 与 错误 消息 相关 联 ， 从 而 能 够 在 有 
Oracle 错 误 号 ， 但 没有 可 用 来 引用 错误 的 名 称 时 捕获 运行 时 错误 。 


10.1 实验 1: RAISE APPLICATION ERROR 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
使 用 RAISE_APPLICATION_ERROR。 


RAISE_APPLICATION_ERROR 是 Oracle 提 供 的 一 个 特殊 的 内 置 过 程 。 它 允许 程序 员 为 特定 应 用 程序 创建 有 意义 的 错误 消息 。 
RAISE_APLICATION_ERROR 过 程 适用 于 用 户 定义 的 异常 ， 它 的 语法 如 清单 10-1 所 示 。 


清单 10-1 RAISE APPLICATION ERROR 过 程 的 两 种 形式 


RAISE APPLICATION ERROR (error number, error message); 


或 


RAISE APPLICATION _ ERROR (error number, error message, keep errors); 


正如 你 所 看 到 的 ， 存 在 两 种 形式 的 RAISE_APPLICATION_ERROR 过 程 。 第 一 种 形式 只 包含 两 个 参数 : error number 和 error_message。 
error_number 是 程序 员 用 来 与 特定 错误 消息 相关 联 的 错误 编号 ， 它 的 取 值 范围 可 以 从 -20999 至 -20000。error_message 是 错误 的 文本 ， 它 最 多 可 包 合 
2048 个 字符 。 


RAISE APPLICATION ERROR 的 第 二 种 形式 包含 一 个 额外 的 参数 : keep_errors。 这 是 一 个 可 选 的 布尔 参数 。 如 果 keep_ errors 被 设置 为 TRUE， 则 
新 的 错误 将 被 添加 到 已 经 引发 的 错误 列表 中 。 错 误 的 这 个 列表 被 称 为 错误 栈 。 如 果 keep_errors 被 设置 为 FALSE， 则 新 的 错误 将 代 蔡 错误 堆栈 。 参 数 
keep_errors 的 默认 值 是 FALSE。 


RAISE_APPLICATION_ERROR 过 程 适用 于 未 命名 的 用 户 定义 的 异常 。 也 就 是 说 ， 它 用 错误 文本 关联 了 错误 号 。 反 过 来 ， 用 户 定义 的 异常 不 具有 与 之 
相关 联 的 名 称 。 


考虑 在 第 9 章 中 使 用 的 以 下 示例 ，ch09 _2a.sql。 这 个 示例 说 明了 如 何 使 用 命名 的 用 户 定义 异常 和 RAISE 语 句 。 将 此 示例 与 使 用 未 命名 的 用 户 定义 异常 
和 RAISE_ APPLICATION ERROR 过 程 的 修改 后 的 版 本 作 比 较 。 命 名 的 用 户 定 义 异 常 和 RAISE 语 句 以 粗 体 显 示 。 


示例 ch10_1a.sql (第 9 章 ， 示 例 ch09 2a.sql) 


DECLARE 


у student іа STUDENT .STUDENT Ір$%ТҮРЕ := &5у student іа; 
v_total_ courses NUMBER; 
е _ invalid іа EXCEPTION; 
BEGIN 
IF v_student_id < 0 
THEN 
RAISE e invalid id; 
END IF; 


SELECT COUNT (*) 
INTO у total courses 
FROM enrollment 
WHERE student id = v_student_id; 


DBMS OUTPUT.PUT_LINE ('The student is registered for'||v total courses||' courses'); 
DBMS OUTPUT .PUT LINE ('No exception has been raised'); 
EXCEPTION 


WHEN е _ invalid id 
THEN 


DBMS_OUTPUT.PUT_LINE ('Ап ID cannot be negative'); 
END; 


现在 ， 查 看 修改 后 的 示例 ( 受 影响 的 语句 以 粗 体 显 示 ) : 
示例 ch10 1b.sql 


DECLARE 


V_Student іа STUDENT . STUDENT ID%TYPE := &ѕу student іа; 
у total courses NUMBER; 
BEGIN 


IF v student id < 0 
THEN 


RAISE APPLICATION ERROR (-20000, 'Ар ID cannot be negative'); 
END IF; 


SELECT COUNT (*) 
INTO у total courses 
FROM enrollment 
WHERE student id = v student id; 


DBMS OUTPUT.PUT LINE ('The student is registered for'||v_total_courses ||'courses'); 
END; 


本 示例 的 第 二 个 版 本 不 包括 此 异常 的 名 称 、RAISEi 语 句 ， 或 PL/SQL 块 的 错误 处 理 部 分 。 相 反 ， 它 只 有 一 个 单独 的 RAISE APPLICATION ERROR 语 
句 。 


你 知道 吗 ? 


尽管 RAISE_APPLICATION_ERROR 是 一 个 内 置 过 程 ， 但 它 在 PL/SQL 块 中 使 用 时 被 作为 语句 引用 。 


两 个 版 本 的 示例 都 能 实现 相同 的 结果 : 如 果 为 变量 v_student _id 提 供 了 一 个 负 值 ， 则 处 理 停止 。 但 是 ， 本 示例 的 第 二 个 版 本 产生 具有 错误 消息 观感 的 
输出 。 


现在 ,使 用 -4 作为 变量 v_student _id 的 值 来 运行 两 个 版 本 的 示例 。 此 示例 的 第 一 个 版 本 将 产生 以 下 的 输出 : 
An ID cannot be negative 
此 示例 的 第 二 个 版 本 产生 以 下 的 输出 : 


ORA-20000: An ID cannot be negative 
ORA-06512: at line 7 


此 示例 的 第 一 个 版 本 产生 的 输出 包含 错误 消息 “An ID cannot be negative” 。 示 例 的 第 二 个 版 本 产生 的 相同 错误 消息 类 似 于 由 系统 生成 的 错误 消 
息 ， 因 为 错误 消息 之 前 有 错误 号 ORA-20000。 此 外 ， 请 注意 ， 当 你 在 SQL Developer 中 运行 这 些 示 例 时 ， 由 示例 的 第 一 个 版 本 产生 的 错误 消息 出 现在 
DBMS 输 出 窗口 ， 而 由 示例 的 第 二 个 版 本 产生 的 相同 错误 消息 出 现在 脚本 输出 窗口 。 


RAISE_APPLICATION _ERROR 过 程 也 可 以 用 于 内 置 异常 。 考 虑 下 面 的 示例 : 
示例 ch10 2a.sq| 


DECLARE 
у student іа STUDENT.STUDENT ID%TYPE := &sv student іа; 
у_пате VARCHAR2 (50); 
BEGIN 
SELECT first пате | |' '||last_name 
INTO v пате 
FROM student 
WHERE student id = v student id; 
DBMS OUTPUT.PUT LINE (у пате); 
EXCEPTION 
WHEN NO DATA FOUND 
THEN 
RAISE APPLICATION ERROR (-20001, 'This ID is invalid'); 
END; 


当 用 户 为 学 生 ID 输 入 100 时 ， 本 示例 生成 以 下 的 输出 : 


ORA-20001: This ID is invalid 
ORA-06512: at line 13 


内 置 异 常 NO_DATA_FOUND 被 引 友 ， 因 为 在 STUDENT 表 没有 对 应 于 这 个 学 生 ID 值 的 记录 。 但 是 ,错误 消息 的 编号 不 指向 异常 
МО РАТА FOUND, 相反 ， 显 示 的 错误 消息 是 “This ID is invalid” (这 个 ID 无 效 ) 。 


RAISE APPLICATION_ERROR 过 程 允 许 程序 员 采 取 与 Oracle 错 误 一 致 的 方式 返回 错误 消息 。 但 是 ， 错 误 号 和 错误 消息 之 间 的 关系 是 由 程序 员 来 维护 
的 。 例 如 ， 你 设计 了 一 个 应 用 程序 来 维护 学 生 的 注册 信息 。 在 这 个 应 用 程序 中 ， 你 将 错误 文本 “This ID is invalid” 与 错误 号 ORA-20001 相 关联 。 你 的 
应 用 程序 可 以 为 任何 无 效 的 ID 使 用 此 错误 消息 。 一 旦 你 将 错误 号 (ОКА-20001) 与 特定 的 错误 消息 (“This ID is invalid” ) 相关 联 ， 你 融 不 应 该 把 此 
昔 误 号 指定 给 另 一 个 错误 消息 。 如 果 你 不 维护 错误 号 和 错误 消息 之 间 的 关系 ， 那 么 你 的 应 用 程序 的 错误 处 理 界面 可 能 会 给 用 户 和 自己 造成 很 大 的 混乱 。 


10.2 ”实验 2: EXCEPTION INIT 编译 指示 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
使 用 EXCEPTION_INIT 编 译 指示 。 


你 的 程序 需要 处 理 的 Oracle 错 误 通 常 具有 与 之 相关 联 的 特定 号 码 ， 但 缺少 可 以 用 来 引用 它 的 名 称 。 在 这 种 情况 下 ， 你 不 能 编写 一 个 处 理 程序 来 捕获 
这 个 错误 ， 但 你 可 以 使 用 一 个 叫做 编译 指示 (pragma) 的 结构 来 处 理 此 异常 。 编 译 指示 是 一 个 特殊 的 PL/SQL 编 译 器 指令 ， 它 是 在 编译 的 时 候 处 理 的 。 
ЕХСЕРТІОМ _INIT 编 译 指示 可 以 让 你 将 Oracle 错 误 号 与 用 户 定 义 的 错误 名 称 相关 联 。 一 旦 将 一 个 错误 名 称 与 Oracle 错 误 号 相关 联 ， 你 就 可 以 引用 此 错误 
并 为 它 编写 处 理 程序 。 


出 现在 一 个 块 的 声明 部 分 的 EXCEPTION INIT 编 译 指示 如 清单 10-2 所 示 。 


清单 10-2 将 EXCEPTION INIT 编 译 指示 与 用 户 定义 的 异常 相关 联 


DECLARE 
exception name EXCEPTION ; 
PRAGMA EXCEPTION INIT (exception пате, error code); 


注意 ， 用 户 定 义 的 异常 的 声明 出 现在 EXCEPTION_INIT 编 译 指示 被 使 用 的 位 置 之 前 。EXCEPTION_INIT 编 译 指示 有 两 个 参数 : exception_name 和 


еггог code。exception_name 是 你 的 异常 的 名 称 ，error_code 是 要 与 你 的 异常 相关 联 的 Oracle 错 误 号 。 考 虑 下 面 的 示例 : 


示例 ch10 3a.sql 


DECLARE 
v zip ZIPCODE.ZIPSTYPE := '&sv 71р'; 
ВЕСІМ 


DELETE FROM zipcode 
WHERE zip = у zip; 


DBMS OUTPUT .PUT LINE ('Zip '||v zip||' has been deleted'); 
COMMIT; 
END; 


在 本 示例 中 ， 对 应 于 用 户 提供 的 邮政 编码 值 的 记录 被 从 ZIPCODE 表 中 删除 。 接 着 ， 将 在 屏幕 上 显示 某 个 特定 的 邮政 编码 已 被 删除 的 消息 。 
看 一 下 当 用 户 在 这 个 示例 中 输入 06870 的 v_zip 值 时 所 产生 的 结果 : 


ОКА-02292: integrity constraint (SITUDENI .STU ZIP FK)violated - child record found 
ORA-06512: at line 4 


本 示例 之 所 以 产生 这 个 错误 消息 ， 是 因为 你 正 试图 从 ZIPCODE 表 删除 一 条 记录 ， 而 在 STUDENT 表 中 存在 其 子 记 录 ， 从 而 违反 了 参照 元 整 性 约束 
STU_ZIP_FK。 换 名 话说， 在 学 生 表 (FTR) 中 有 一 个 市 外 键 (STU_ZIP_FK) 的 记录 引用 了 ZIPCODE 表 (R) 中 的 一 条 记录 。 


此 错误 具有 赋予 它 的 Oracle 错 误 号 ORA-02292， 但 它 没有 名 字 。 为 了 在 脚本 中 处 理 这 种 错误 ， 你 需要 将 错误 号 与 用 户 定 义 的 异常 相关 联 。 
假设 你 将 示例 作 如 下 修改 (所 有 更 改 以 粗 体 显示 ) : 
示例 ch10 3b.sql 


DECLARE 
у_21р ZIPCODE.ZIP%ŚTYPE := '&ву_71р'; 
e child exists ЕХСЕРТІОМ; 
PRAGMA EXCEPTION INIT(e child exists, -2292); 
BEGIN 
DELETE FROM zipcode 
WHERE zip = у 21р; 


DBMS OUTPUT .PUT LINE ('7ір '||v zip||' has been deleted'); 
COMMIT; 
EXCEPTION 
WHEN e child exists 
THEN 
DBMS OUTPUT.PUT_LINE ('Delete students for this ZIP code first'); 
END; 


在 这 个 版 本 的 脚本 中 ， 声 明了 异常 e_child_exists。 然 后 ， 此 异常 与 错误 号 -2292 相 关联 。 请 注意 ， 你 不 在 EXCEPTION_INIT 编 译 指示 中 使 用 ORA- 
02292。 接 下 来 ， 你 将 异常 处 理 部 分 添加 到 PL/SQL 块 中 ， 从 而 捕获 这 个 错误 。 


你 有 没有 注意 到 ， 尽 管 异常 e_child_exists 是 一 个 用 户 定义 的 异常 ， 但 你 却 没有 如 你 在 第 9 章 那 样 使 用 RAISEi 语 句 ? 这 是 因为 你 已 经 把 用 户 定义 的 异常 
与 特定 的 Oracle 错 误 号 关联 了 。 回 想 一 下 ， 即 使 一 个 Oracle 异 常 有 与 之 相关 联 的 编号 ， 它 也 必须 在 异常 处 理 部 分 中 由 它 的 名 称 来 引用 。 因 为 Oracle 错 误 
号 -2292 没 有 与 之 相关 联 的 名 字 ， 所 以 你 通过 EXCEPTION INIT 编 译 指 示 来 明确 执行 这 个 关联 。 

当 你 使 用 相同 的 邮政 编码 值 来 运行 这 个 版 本 的 示例 时 ， 它 将 产生 以 下 的 输出 : 


Delete students for this zipcode first 
该 输出 包含 由 DBMS_OUTPUT.PUT_LINE 语 句 显示 的 一 个 新 错误 消息 。 它 比 以 前 版 本 的 输出 更 具 描 述 性 。 请 记 住 ， 该 程序 的 用 户 可 能 不 知道 数据 库 


中 存在 参照 完整 性 约束 。 因 此 ，EXCEPTION_INIT 编 译 指 示 提高 了 你 的 错误 处 理 界面 的 可 读 性 。 如 有 需要 ， 你 可 以 在 你 的 程序 中 使 用 多 个 
EXCEPTION_INIT 编 译 指示 。 


10.3 ”实验 3: SQLCODE 和 SQLERRM 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 

- 使 用 SQLCODE 和 SQLERRM。 

在 第 8 草 ， 我们 了 解 了 Oracle 异 常 OTHERS。 所 有 Oracle 错 误 都 可 以 借助 OTHERS 异 常 处 理 程序 来 捕获 ， 如 下 面 的 示例 所 示 : 
示例 ch10 4a.sql 


DECLARE 
у_21р VARCHAR2(5) := '&зу 2Z1p'; 
у сісу VARCHAR2 (15); 
у ѕсасе CHAR (2); 
BEGIN 
SELECT city, state 
INTO у city, у state 
FROM zipcode 
WHERE zip = у 2ір; 


DBMS OUTPUT .PUT LINE (у city||', '||v_state); 
EXCEPTION 
WHEN OTHERS 
THEN 
DBMS OUTPUT. PUT LINE ('An error has оссиггей'!); 
END; 


当 用 户 为 邮政 编码 的 值 输入 07458 时 ， 这 个 示例 将 产生 下 面 的 输出 : 
Ап error has occurred 
该 输出 通知 你 在 运行 时 发 生 了 错误 ， 但 你 不 知道 错误 是 什么 ， 它 是 由 什么 原因 造成 的 。 也 许 ZIPCODE 表 中 没有 对 应 于 在 运行 时 提供 的 值 的 记录 ， 也 


可 能 因为 SELECT INTO 语 句 导致 数据 类 型 不 匹配 ， 或 者 SELECT INTO 语 句 返 回 多 行 。 正 如 你 所 看 到 的 ， 尽 管 这 是 一 个 简单 的 示例 ， 但 也 可 能 会 出 现 多 种 


运行 时 错误 。 


当然 ， 你 不 总 能 确定 程序 在 运行 时 可 能 出 现 的 每 一 个 可 能 的 运行 时 错误 。 因 此 ， 在 脚本 中 包括 OTHERS 异 常 处 理 程序 是 一 个 很 好 的 做 法 。 为 了 改进 程 
序 的 错误 处 理 界面 ，Oracle 平 台 提供 了 两 个 内 置 的 函数 ，SQLCODE 和 SQLERRM， 它 们 可 与 OTHERS 异 常 处 理 程序 配合 使 用 。SQLCODE 函 数 返回 
Oracle 错 误 号 ， 而 SQLERRM 函 数 返 回 错误 消息 。 由 SQLERRM 函 数 返 回 的 消息 的 最 大 长 度 为 512 字 节 ， 这 是 Oracle 数 据 库 错误 消息 的 最 大 长 度 。 


试想 ， 如 果 你 修改 前 面 的 示例 ， 在 其 中 加 入 如 下 SQLCODEfNSQLERRM 函 数 会 发 生 什么 修改 以 粗 体 突出 显示 ) : 


示例 ch10 40.54] 


DECLARE 


у_21р VARCHAR2 (5) := '&sv 2ір'; 
v_city VARCHAR2 (15); 
у всаре CHAR (2); 


v err code NUMBER; 
у err msg VARCHAR2 (200); 
BEGIN 
SELECT city, state 
INTO v city, у _ state 
FROM zipcode 
WHERE zip = у zip; 


DBMS OUTPUT .PUT LINE (у city||', !| |у state); 


EXCEPTION 
WHEN OTHERS 
THEN 
у err code := SQLCODE; 
у err msg := SUBSTR (SQLERRM, 1, 200); 
DBMS ООТРОТ.РОТ LINE ('Еггог code: ' 
DBMS ООТРОТ.РОТ LINE ('Еггог message: !| |у err msg); 


END; 


у err code); 


在 执行 时 ， 这 个 版 本 的 示例 将 产生 下 面 的 输出 : 


Error code: -6502 
Error message: ORA-06502: PL/SQL: numeric or value error: character string buffer too small 


HSQLCODERŽOR PÁER егг собе, mæ 


这 个 版 本 的 脚本 包括 两 个 新 的 变量 : v err code 和 v_err msg。 在 块 的 异 单 处理 部 分 ， 
昔 误 号 和 错误 消息 。 


SQLERRM 函 数 返回 的 值 被 赋予 变量 v_ err msg。 接 下 来 ， 通 过 DBMS OUTPUT.PUT_LINE 语 句 在 屏幕 上 显示 4 
注意 ， 此 输出 比 前 一 版 本 的 示例 产生 的 输出 包 合 更 多 的 消息 ， 因 为 它 显示 了 错误 消息 。 一 旦 你 知道 在 你 的 程序 中 发 生 了 哪些 运行 时 错误 ， 你 就 可 以 
采取 措施 来 防止 其 复 友 。 
一 般 来 咬 ，SQLCODE 冰 数 返回 一 个 为 负数 的 错误 号 。 但 是 ， 也 有 一 些 例外 : 
- 当 SQLCODE 函 数 在 异常 部 分 之 外 引用 时 ， 它 返回 为 0 的 错误 代码 。 值 0 表示 成 功 完 成 。 
- 当 SQLCODE 辑 数 用 于 用 户 定义 的 异常 时 ， 它 返回 为 +1 的 错误 代码 。 
. SQLCODE 函数 在 NO_DATA_FEOUND 异 常 被 引发 时 ， 返 回 值 为 100。 


SQLERRM 消 数 接受 一 个 错误 号 作为 参数 ， 并 返回 对 应 于 此 错误 号 的 错误 消息 。 通 常情 况 下 ， 它 与 由 SQLCODE 消 数 返 回 的 值 配合 使 用 。 但 是 ， 如 果 


有 需要 ， 你 也 可 以 上 自己 提供 错误 号 。 考 虑 下 面 的 示例 : 


示例 ch10 5a.sql 


BEGIN 
DBMS OUTPUT.PUT LINE ('Error code: '! | | 501СОрЕ); 
DBMS OUTPUT.PUT LINE ('Error messagel: '! | |SQLERRM (ЅО1СОрЕ)); 
DBMS OUTPUT.PUT LINE ('Error message2: '||SQLERRM(100)); 
DBMS OUTPUT.PUT LINE ('Error message3: '||SQLERRM(200)); 
DBMS OUTPUT .PUT LINE ('Error message4: ' | | SQLERRM (-20000) ); 


END ; 


在 这 个 示例 中 ，SQLCODE 和 SQLERRM 国 数 被 用 在 PLUSQL 块 的 可 执行 部 分 。SQLERRM 上 六 数 接受 第 二 个 DBMS OUTPUT.PUT LINE 语 句 中 提供 的 


SQLCODE 值 。 在 以 下 DBMS OUPUT.PUT_LINE 语 句 中 ，SQLERRM 函 数 分 别 接受 为 100、200 和 -20000 的 值 。 在 执行 时 ， 这 个 示例 将 产生 下 面 的 输出 : 


Error code: 0 

Error messagel: ORA-0000: normal, successful completion 
Error message2: ORA-01403: no data found 

Error message3: -200: non-ORACLE exception 

Error message4: ORA-20000: 


第 一 个 DBM3S_OUTPUT.PUT_LINE 语 句 显示 SQLCODE 子 数 的 值 。 因 为 没有 异 音 被 引 友 ， 所 以 它 返 回 0。 接 下 来 ， 由 3QLCODE 阔 数 返 回 的 值 被 
SQLERRM 上 了 数 作为 参数 接受 。 该 国 数 返 回 消息 “ORA-0000:normal，successful completion” ， 接 下 来 ，SQLERRM 国 数 接受 100 作 为 其 人 参数， 并 返 
回 “ORA-01403: no datahttp://www.hzcourse.com/resource/readBook? 
path=/openresources/teach ebook/uncompressed/15603/OEBPS/Text/...”。 请 注意 ， 当 SQLERRM 函 数 接受 200 作 为 其 参数 ， 它 不 能 找到 对 应 于 
错误 号 200 的 Oracle 异 常 。 最 后 ， 当 SQLERRM 峭 数 接受 -20000 作 为 参数 时 ， 它 不 返回 错误 消息 。 回 想 一 下 ，-20000 是 一 个 可 与 一 个 命名 的 用 户 定义 异 
帅 相 关联 的 错误 号 。 


10.4” 忆 结 


在 本 章 ， 我 们 已 经 结束 了 对 错误 处 理 和 异常 的 探讨 。 我 们 学 会 了 如 何 使 用 RAISE APPLICATION ERROR 过 程 科 SQLCODE 及 SQLERM M 函 数 在 代码 
中 创建 有 意义 的 错误 消息 。 此 外 ， 我 们 还 了 解 了 EXCEPTION INIT 编 译 指示 ， 它 可 以 将 用 户 定义 的 异常 与 Oracle 错 误 号 相关 联 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


第 11 晶 ”游标 简介 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
- 游标 类 型 

. 游标 循环 

游标 FOR 循环 

АЗЫР 


游标 是 Oracle 平 台 用 于 执行 SQL 语句 的 内 人 存 区 域 。 在 数据 库 编程 中 ， 游 标 是 实现 SQL 查询 结果 处 理 的 内 部 数据 结构 。 例 如 ， 你 可 以 使 用 游标 对 
STUDENT 表 中 参加 特定 课程 (在 ENROLLMENT 表 中 具有 相 天 条 目 ) 的 所 有 学 生 的 行进 行 操作 。 在 本 章 ， 你 将 学 习 如 何 声明 显 式 游标 ， 使 用 户 能 够 处 理 
查询 返回 的 多 行 ， 并 编写 每 次 处 理 一 行 的 代码 。 


11.1 实验 1: 洲 标 类 型 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
ЛЕ хм, 


为 了 处 理 SQL 语 句 ，Oracle 平 台 需 要 创建 被 称 为 上 下 文 区域 的 内 存 区 域 ， 这 将 包含 处 理 语句 所 需 的 信息 。 此 信息 包括 由 语句 处 理 的 行 数 和 一 个 指向 
语句 解析 后 的 表示 的 指针 (解析 SQL 语句 是 指 把 信息 传送 给 服务 器 ， 在 那里 评估 SQL 语句 的 有 效 性 的 过 程 ) 。 在 查询 中 ， 活 动 集 (active set) 是 指 将 被 
返回 的 行 。 

游标 是 一 个 指向 上 下 文 区 域 的 句柄 或 指针 。 通 过 游标 ， 一 个 PL/SQL 程 序 可 以 控制 上 下 文 区 域 ， 以 及 语句 被 处 理 时 此 区 域 会 故 生 什么 情况 。 游 标 有 如 
下 两 个 重要 的 特点 : 

1) 游标 可 用 于 逐 行 地 读 取 SELECT 语句 返回 的 行 。 

2) 游标 是 命名 的 ， 以 便 它 可 以 被 引用 。 

有 两 种 类 型 的 游标 : 

1) 隐 式 (implicit) 游标 是 由 Oracle 每 次 执行 SQL 语 句 时 自动 声明 的 。 用 户 不 会 意识 到 这 种 情况 的 发 生 ， 并 且 不 能 控制 或 处 理 隐 式 游 标 中 的 信息 。 


2) 显 式 (explicit) 游标 是 由 程序 为 返回 多 行 [/ 数据 的 任何 查询 定义 的 。 这 意味 着 程序 员 在 PLUSQL 代 码 块 中 声明 了 此 游标 。 此 声明 允许 应 用 程序 顺 
序 地 处 理由 游标 返回 的 每 一 行 数据 。 


[1 有 了 时 不 一 定 为 多 行 。 译 者 注 


11.2 实验 2: ҸАР 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 处 理 显 式 游标 。 
- 使 用 用 户 定义 的 记录 。 
` 使 用 游标 属性 。 


为 了 处 理 一 个 游标 ， 你 必须 对 它 进行 遍历 。 在 本 节 ， 我 们 将 通过 一 个 代码 示例 解释 这 个 循环 的 每 个 步骤 的 细节 。 


11.3 30293: ТЛ РОК 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


` 使 用 游标 FOR 循环 。 
使 用 游标 FOR 循环 


由 于 所 使 用 的 简化 语法 ， 处 理 游标 的 另 一 种 方法 被 称 为 游标 FOR 循环 。 当 使 用 游标 FOR 循环 时 ， 打 开 、 读 取 和 关闭 的 过 程 是 羽 隐 式 处 理 的 。 这 使 得 
块 的 编写 简单 得 多 ， 并 且 更 易于 维护 。 


游标 FOR 循 环 指定 对 游标 返回 的 每 一 行 都 重复 一 次 的 语句 序列 。 如 果 需 要 从 一 个 游标 读 取 并 处 理 每 一 个 记录 ， 和 直到 退出 循环 时 才 停 止 ， 束 可 以 使 用 
游标 FOR 循环 。 


要 使 用 此 循环 ， 你 需要 用 下 面 的 脚本 创建 一 个 名 为 table log 的 新 表 : 


create table table log 
(description VARCHAR2 (250)); 


然后 运行 下 列 脚本 : 


示例 ch11 7.59 


DECLARE 
CURSOR с student 15 
SELECT student 1а, last паме, first пате 


FROM student 
WHERE student іа < 110; 


BEGIN 
FOR r student ІМ с student 


LOOP 
INSERT INTO table 109 
VALUES (r_student.last_name) ; 


END LOOP; 


END; 
SELECT * from table log; 


下 面 的 PLUSQL 块 将 具有 八 名 或 更 多 学 生 的 所 有 课程 的 费用 都 减少 ?5%。 它 使 用 游标 FOR 循环 将 打折 后 的 费用 更 新 到 课程 (course) Ж. 


示例 ch11 8.59 


DECLARE 
CURSOR с group discount 15 
SELECT DISTINCT в.соцгве по 
FROM section s, enrollment е 
WHERE s.section id = e.section id 
GROUP BY s.course no, e.section id, s.section id 


HAVING COUNT (* ) >=8; 


ВЕСІМ 
FOR г _ group discount ІМ с group discount LOOP 


ОРРАТЕ course 
БЕТ cost = cost * .95 
WHERE course по = г group discount .CourSe по; 


END LOOP; 
COMMIT; 
END; 


游标 c group_discount 是 在 声明 部 分 中 声明 的 。 适 当 的 SQL 被 用 来 产生 SELECT 语句 来 回答 提出 的 问题 。 在 FOR 循环 的 每 个 循环 运 代 中 处 理 游标 并 执 
{7501 update 语 句 。 因 此 ， 游 标 不 必 被 打开 、 读 取 和 关闭 。 此 外 ， 对 于 正在 处 理 游标 的 循环 不 必 使 用 游标 属性 来 创建 一 个 退出 条 件 。 


11.4 实验 4: ЕХ 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


` АЁ РЁ ЙТ Жр 
但 它 实 际 上 只 是 一 个 循环 内 的 循环 ， 它 与 第 7 章 中 提 到 的 内 套 循环 很 像 。 如 果 你 有 一 个 父 游 标 和 两 个 子 游 


游标 可 以 相互 罕 套 。 尽 管 这 听 起 来 复杂 ， 
， 然 后 开始 第 二 轮 。 在 接 下 来 的 两 个 示例 中 ， 我 们 会 遇 到 一 个 市 有 子 游标 的 调 套 洲 


标 ， 则 每 次 父 游标 执行 一 个 循环 时 ， 它 都 将 遍历 每 个 子 游标 循环 一 次 
标 。 
处 理 同 套 游 标 

在 下 面 的 示例 中 ， 添 加 了 行 号 以 便 可 以 在 下 面 的 说 明 中 引用 各 行 。 当 运行 此 代码 时 ， 需 要 删除 这 些 行 号 。 


示例 ch11 9.59 


SET SERVEROUTPEUT ON 

DECLARE 

2 у_21р 2ірсойе.2ір%ТҮРЕ; 
3 у student flag CHAR; 

& CURSOR с 2ір 15 

5 SELECT 2ір, city, state 
6 FROM zipcode 

7 WHERE state = 'СТ'; 

8 CURSOR с student IS 


9 SELECT first name, last name 
10 FROM student 
11 WHERE zip = у zip; 
12 BEGIN 
ІЗ FOR г 2ір ІМ с 2ір 
14 LOOP 
15 у Student flag := 'N'; 
16 ү 21р = 21р.21р; 
17 DBMS OUTPUT .PUT LINE (СНВ (10)); 
18 DBMS ООТРОТ.РОТ LINE('Students living in || 
19 т ЖҮЛ EERS 
20 FOR r student іп с student 
21 LOOP 
22 DBMS OUTPUT .PUT LINE ( 
23 г student.first_name| | 
24 [|е student.last name) ; 
25 v_student_flag := 'Ү!; 
26 END LOOP; 
27 IF v_student_flag = 'N' 
28 THEN 
29 DBMS OUTPUT .PUT_ LINE 
('No students for this ZIP code'); 
30 END IF; 
SL END LOOP; 
32 END; 


此 示例 中 有 两 个 游标 : 邮政 编码 游标 和 学 生 名 单 游标 。 变 量 v_zip 在 第 16 行 被 初始 化 为 c_zip 游 标的 当前 记录 的 邮政 编码 。 游 标 c student 通过 这 个 变 
量 与 游标 c_zip 相 联系 。 因 此 ， 当 游标 在 第 20~ 26 行 被 处 理 时 ， 它 检索 出 拥有 父 游标 的 当前 记录 的 邮政 编码 的 学 生 。 父 游标 在 第 13~31 被 行 处 理 。 父 游标 
的 每 次 迭代 只 执行 一 次 在 第 16 和 17 行 的 DBMS_OUTPUT 语 句 。 每 次 子 循环 都 执行 一 次 在 第 22 行 的 DBMS_OUTPUT 语 句 ， 为 每 个 学 生 都 生成 一 行 输出 。 
只 有 当 内 循环 没有 执行 时 ， 才 执行 在 第 29 行 的 DBMS_OUTPUT.PUT_LINE 语 句 ， 这 是 通过 设置 一 个 变量 v student flag 完 成 的 。 此 变量 在 父 循环 的 开始 
被 设置 为 N， 如 果子 循环 至 少 执行 了 一 次 ， 那 么 此 变量 将 被 设置 为 Y。 在 子 循 环 关 闭 后 ， 利 用 IF 语句 来 检查 变量 的 值 。 如 果 它 仍 是 N， 则 可 以 安全 地 得 
结论 ， 内 层 循环 没有 处 理 。 这 将 允许 执行 最 后 一 个 DBMS_ OUTPUT.PUT_LINE 语 句 。 旋 套 游标 更 经 常 被 参数 化 。 游 标 中 的 参数 在 12.2 节 中 深入 解释 。 


下 一 个 示例 是 带 有 两 个 游标 FOR 循环 的 PLUSQL 块 。 父 游标 从 student 表 中 检索 STUDENT 1D 小 于 110 的 学 生 的 student id, first name 和 
last_name， 并 在 一 行 中 输出 这 些 信 息 。 对 于 每 一 个 学 生 ， 子 游标 遍历 该 学 生 就 读 的 所 有 课程 ， 输 出 课程 的 course_no 和 描述 (description) 。 


示例 ch11_10.sql 


SET SERVEROUIPUI ON 
DECLARE 
v_sid student .student_idśTYPE; 
CURSOR c_student IS 
SELECT student id, first_name, last_name 
FROM student 
WHERE student id < 110; 
CURSOR c_course IS 
SELECT c.course_no, c.description 
FROM course c, section s, enrollment e 
WHERE c.course_no = s.course_no 
AND s.section_id = e.section_id 
AND e.student id = v sid; 
BEGIN 
FOR r student IN c student 
LOOP 
v_sid := r_student.student_id; 
DBMS_OUTPUT.PUT_LINE (chr (10)); 
DBMS OUTPUT.PUT LINE(' The Student '|| 
г student.student id||''|| 
г student.first пате | |' '|| 
г Student .ast name); 
DBMS OUTPUT.PUT LINE(' is enrolled іп the ' | | 
'following courses: !); 
FOR г course IN с course 
LOOP 
DBMS OUTPUT .PUT LINE(r course.course по | | 
' !||r course.description) ; 
END LOOP; 
END LOOP; 
END; 


在 PL/SQL 块 的 声明 部 分 中 定义 了 两 个 游标 的 SELECT 语 句 。 此 外 ， 还 声明 了 一 个 变量 来 存储 来 自 父 游标 的 student_id。 课 程 游标 是 子 游标 。 因 为 它 使 
用 了 变量 v_ sid， 所 以 必须 先 声 明 此 变量 。 两 个 游标 都 用 FOR 循环 进行 处 理 ， 从 而 消除 了 对 OPEN、FETCH 和 CLOSE 语句 的 需要 。 当 处 理 父 学 生 循环 时 ， 
第 一 步 是 初始 化 变量 v_ sid， 然 后 在 处 理子 循环 时 使 用 这 个 值 。 使 用 DBMS_OUTPUT 语 句 为 每 个 游标 循环 生成 显示 输出 。 父 游标 将 显示 一 次 学 生 姓 名 ， 而 


子 游标 将 显示 此 学 生 丈 读 的 每 门 课程 的 名 称 。 
下 面 的 示例 演示 了 一 个 嵌 套 的 游标 : 
示例 ch11 11.541 


SET SERVEROUTPUT ON 
DECLARE 


V_amount course.costTYPE; 
BA 
CURSOR с inst IS 
SELECT first_name, last_name, instructor id 
FROM instructor; 
CURSOR с созі IS 
SELECT c.costť 
FROM course c, section в, enrollment e 
WHERE s.instructor id = v instructor id 
AND c.course_ по = s.course по 
AND s.section id = e.section id; 
BEGIN 
FOR T 105C IN с іпзі 
LOOP 
у іпзігиссог 1а := р іпві.іпвегисіёог Ча; 
V_amount := 0; 
DBMS _ OUTPUT .PUT LINE ( 
'Amount generated by instructor '|| 


r inst.first name||' '||r inst.last пате 
ПЫ СЕ 

РОК r cost ІМ с созі 

ГООР 
у amount := у amount + NVL(r cost.cost, 0); 

END LOOP; 

DBMS OUTPUT .PUT LINE 

Е ' | |TO СНАК (у amount, ' $999,999')); 

END LOOP; 


END; 


声明 部 分 包含 两 个 变量 的 声明 。 第 一 个 是 v amount， 它 与 course 表 中 cost 的 数据 类 型 相 匹 配 ， 第 二 个 是 v instructor id， 它 与 instructor 表 中 
instructor id 的 数据 类 型 匹配 。 另 外 还 有 两 个 游标 的 声明 。 第 一 个 是 c_ inst， 由 instructor 表 中 教师 的 first name, last name 和 instructor id 组 成 。 第 二 
个 游标 ，c_cost， 将 生成 就 读 于 匹配 变量 v_instructor_id 的 教师 执教 的 一 门 课 程 的 每 个 学 生 的 课程 费用 的 结果 集 。 这 两 个 游标 将 以 英 套 的 方式 运行 。 


首先 ， 在 FOR 循 环 中 打开 游标 c_inst。 变 量 v_instructor_id 的 值 被 初始 化 为 匹配 instructor_idc_inst 游 标的 当前 行 。 变 量 v_ amount 被 初始 化 为 0。 


第 二 个 游标 在 第 一 个 游标 的 循环 内 打开 。 因 此 ， 对 于 游标 c_inst 的 每 次 迭代 ， 都 将 打开 、 读 取 和 关闭 第 二 个 游标 。 第 二 个 游标 将 遍历 生成 报名 参加 了 
c_inst 洲 标 当前 值 的 教师 的 课程 的 每 个 学 生 的 所 有 费用 。 骨 套 循环 每 次 达 代 时 ， 它 都 会 通过 添加 在 c_cost 循 环 中 的 当前 费用 来 递增 变量 v_amount。 


在 打开 c_cost 循 环 之 前 ，DBMS OUTPUT 语 句 显示 了 教师 的 名 字 。c_cost 游 标 循环 结束 后 ，DBMS OUTPUT 语 句 显示 当前 教师 的 所 有 报名 入 学 所 产 
生 的 总 金额 。 


结果 集 将 如 下 所 示 : 


Amount generated by instructor Fernand Hanks 1S 
$49,110 

Amount generated by instructor Тош Wojick із 
$24,582 

Amount generated by instructor Nina Schorin is 


543,319 
Amount generated by instructor багу Pertez is 


1 e D у, 

Amount generated by instructor Anita Morris is 
518,662 

Amount generated ру instructor Todd Smythe is 
521,092 

Amount generated ру instructor Marilyn Frantzen 15 
534,311 

Amount generated ру instructor Charles Lowry is 
597.910 

Amount generated ру instructor Віск Chow is 

50 

Amount generated by instructor Irene Willig is 
$0 


在 此 示例 中 ， 嵌 套 的 游标 通过 变量 v_instructor_id 被 绑 定 到 外 层 游标 的 当前 行 。 处 理 此 任务 更 常用 的 方法 是 将 一 个 参数 传递 给 一 个 游标 。 我 们 将 在 第 
12 章 学 习 更 多 关于 如 何 实现 这 一 目标 的 知识 。 


11.5 д4 

在 本 章 ， 我 们 学 习 了 如 何 使 用 各 种 类 型 的 游标 。 我 们 首先 学 习 了 Oracle 平 台 如 何 处 理 隐 式 游 标 ， 然 后 学 习 了 使 用 显 式 游标 所 需 的 所 有 步骤 。 此 外 ， 
我 们 还 了 解 了 不 同 的 记录 类 型 ， 并 了 解 了 如 何在 游标 的 上 下 文中 使 用 它们 。 最 后 ， 我 们 学 习 了 三 种 类 型 的 游标 循环 : ЕВА. РОКАХ. 
顺便 这 说 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


第 12 草 ”高 级 游标 


在 本 章 ， 你 将 学 习 如 下 内 容 : 

- 参数 化 游标 

За) Л 

. FOR UPDATE 和 WHERE CURRENT 游 标 


在 第 11 章 ， 我 们 掌握 了 游标 的 基本 概念 。 在 本 章 ， 我 们 将 学 习 在 调用 游标 时 如 何 通过 传递 参数 来 动态 改变 游标 的 WHERE 子 句 。 在 第 21 章 ， 我 们 将 把 
游标 带 到 另 一 个 层次 ， 也 就 是 说 ， 在 一 个 包 的 上 下 文中 ， 我 们 将 学 习 如 何 实现 游标 变量 。 
12.1 实验 1: 参数 化 游标 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


- 在 游标 中 使 用 参数 。 


市 参数 的 游标 

声明 游标 时 可 以 使 用 参数 。 这 种 方法 使 游标 可 以 产生 既 紧 凑 又 可 重用 的 特定 结果 集 。 例 如 ， 包 含 ZIPCODE 表 中 所 有 数据 的 游标 可 能 是 非常 有 用 的 ， 
但 如 果 它 保存 的 信息 只 有 一 个 州 ， 它 对 于 某 些 数据 处 理 将 会 变 得 更 为 有 有用。 现在， 你 知道 如 何 创建 这 样 的 游标 。 但 如 果 你 可 以 创建 可 以 接受 州 的 参数 的 
游标 ， 然 后 只 退 历 此 州 的 城市 和 邮政 编码 ， 难 道 不 是 更 加 有 用 吗 ? 


示例 


CURSOR с zip (р state IN 2ірсойе.ѕіаёсе%ТҮРЕ) IS 
SELECT 2ір, сісу, Btate 
FROM zipcode 
WHERE state = p state; 


关于 游标 中 的 参数 ， 要 牢记 的 要 点 如 下 : 

` 游标 参数 使 游标 更 加 可 重用 。 

` 游标 参数 可 被 赋予 默认 值 。 

` 游标 参数 的 作用 域 对 游标 是 局 部 的 。 

- 参数 的 模式 只 能 是 IN。 

当 游 标 已 被 声明 为 接受 一 个 参数 后 ， 调 用 它 时 就 必须 包括 此 参数 的 值 。 刚 刚 被 声明 的 c_zip 游 标的 调用 方法 如 下 : 
ОРЕМ с zip ( 参数 值 ) 

相同 的 游标 可 以 用 如 下 的 游标 FOR 循环 打开 : 


FOR г 2ір ІМ с 21ір('М№ү!) 
LOOP шы 


前 面 示例 中 的 游标 在 下 面 的 示例 中 被 扩展 为 参数 化 游标 。 这 个 示例 包括 显示 邮政 编码 、 城 市 、 州 的 一 个 DBMS_OUTPUT 行 。 这 与 我 们 之 前 使 用 的 游 
标 FOR 循 环 的 过 程 是 相同 的 ， 只 是 现在 当 游 标 打 开 时 ， 我 们 对 它 传递 了 一 个 参数 。 


示例 ch12 1.sql 


DECLARE 
CURSOR с_21р (р state IN zipcode.state%TYPE) IS 
SELECT zip, city, state 
FROM zipcode 
WHERE state = p state 
BEGIN 
FOR г 2ір IN с 2ір('№Ј!) 
LOOP... 
DBMS OUTPUT.PUT LINE(r zip.city || 
К | le et йн 
END LOOP; 
END; 


要 完成 此 块 ， 游 标 声明 被 DECLARE 和 BEGIN 封 闭 。 通 过 传递 参数 “NJ” 打 开 游 标 ， 然 后 ， 对 游标 循环 的 每 次 迭代 ， 都 利用 内 置 包 DBMS_OUTPUT 
显示 邮政 编码 和 城市 。 


122 ”实验 2: 复杂 的 网 套 游标 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


` 使 用 复杂 的 谱 套 游标 。 


启 套 游标 允许 在 不 同 阶 段 遍 历数 据 。 例 如 ， 一 个 游标 可 能 遍历 邮政 编码 。 当 它 命中 某 个 邮政 编码 时 ， 可 能 嵌 套 第 二 个 游标 ， 它 遍历 住 在 这 个 邮政 编 
码 区 域 中 的 学 生 。 一 个 具体 示例 将 有 助 于 解释 这 种 方法 的 更 多 细节 。 


下 面 的 PL/SQL 代 码 是 复杂 的 。 它 涉及 目前 为 止 本 章 涵 薪 的 所 有 主题 。 其 中 有 一 个 岩 套 游标 ， 它 包含 三 个 层次 ， 这 意味 着 祖父 游标 、 父 游标 和 子 游 


标 。 
示例 ch12 2.59 


SET SERVEROUTPUT ON 
DECLARE 
2 CURSOR с atuüdënt IS 
С SELECT first пате, last name, student іа 
4 FROM Student 
5 WHERE last_name LIKE '1]%'; 
6 CURSOR c course 
7 (1 student іа ІМ student .student id%TYPE) 
8 


15 

9 SELECT с.ӣеѕсгірсіоп, в.весС1оп іа sec іа 

10 FROM course с, section s, enrollment е 

ri WHERE e.student іа = 1 student іа 

12 AND c.course_no = s.course_no 

1:3 AND s.section id = e.section іа; 

14 CURSOR с grade(i section id IN section.section 14%ТҮРЕ, 
18 і student іа ІМ student.student id%TYPE) 
16 IS 

ЕТ SELECT gt.description grd desc, 

18 ТО CHAR 

19 (AVG (g.numeric_grade), '999.99') num grd 
20 FROM enrollment е, 

21: grade g, grade type gt 

22 WHERE е.ѕесііоп іа = і section іа 
23 AND e.student іа = g.student іа 
24 AND e.student іа = 1 student іа 
25 AND е.зѕесііоп іа = g.section id 
26 AND g.grade суре сое = gt.grade type code 
a GROUP BY gt.description ; 
28 BEGIN 
29 FOR r student IN c student 

30 LOOP 

ЗІ DBMS_OUTPUT .PUT 1ІМЕ (СНК (10)); 

32 DBMS OUTPUT .PUT LINE( student .fizst пате | | 

33 ' '||r student.last пате) ; 

34 FOR r course ІМ с course(r student .student іа) 
a5 LOOP 

36 DBMS OUTPUT .PUT LINE ('Grades for course :'|| 
37 г course.description); 

38 FOR г grade ІМ с дгайе (г course.sec іа, 

39 r student.student іа) 

40 LOOP 

41 DBMS OUTPUT .PUT LINE(r grade.num grd| | 

42 ' '!'||r grade.grd desc); 

43 END LOOP; 

44 END LOOP; 

45 END LOOP; 

46 END; 


А520, c_student, 1Е%2-55288. CAESA, EEA "Ј" ALFERRA. KIMERO 13 行 声明 。 这 个 游标 ，c_course， 采 用 
student id 参数 生成 此 学 生 融 读 的 课程 列表 。 子 游标 ，c_grade， 在 第 14~27 行 声明 。 它 有 两 个 参数 ，section_id 和 student_ id。 以 这 种 方式 ， 它 可 以 生 


成 此 学 生 此 课程 的 不 同 成 绩 类 型 的 平均 成 绩 。 


宜 父 游标 循环 从 第 29 行 开始 ， 并 且 用 DBM3_OUTPUT 只 显示 学 生 名 字 。 父 游标 循环 从 第 35 行 开始 ， 它 从 祖父 游标 取得 student_ id 参数 ， 只 显示 课程 
的 摘 述 。 子 游标 循环 从 第 40 行 开始 ， 它 取得 父 游标 的 section_id 参 数 和 祖父 游标 的 student id 参数 ， 成 绩 会 被 显示 出 来 。 祖 父 游标 循环 在 第 45 行 结束 ， 父 
游标 在 第 44 行 结束 ， 并 且 最 终 子 游标 在 第 43 行 结束 。 


这 个 脚本 的 输出 是 一 个 学 生 的 名 字 ， 后 面 跟 着 此 学 生 融 读 的 课程 ， 以 及 其 已 经 获得 的 每 一 个 成 绩 类 型 的 平均 成 绩 。 


12.3 ”实验 3: FOR UPDATE 和 WHERE СОККЕМТ л 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 使 用 FOR UPDATE 游标 。 


. 在 游标 中 使 用 WHERE CURRENT. 
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本 章 探讨 了 各 种 涉及 游标 的 高 级 主题 。 首 先 ， 我 们 了 解 了 如 何 将 参数 传递 给 游标 以 限制 游标 的 结果 集 。 然 后 ， 我 们 学 会 了 如 何 谋 套 游标 。 最 后 ,我 
们 看 到 了 创建 执行 数据 库 更 新 的 游标 的 语法 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 


的 理解 程度 。 
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在 本 章 ， 你 将 学 习 如 下 内 容 : 


在 第 1 章 ， 我 们 学 习 了 命名 PL/SQL 块 ， 如 可 以 存储 在 数据 库 中 的 过 程 、 消 数 和 包 的 概念 。 在 本 草 ， 你 将 学 习 另 一 种 称 为 数据 库 触 友 器 的 命名 PL/SQL 
块 。 你 还 将 了 解 不 同 触 友 器 的 特点 及 其 在 数据 库 中 的 用 途 。 


13.1 实验 1: 什么 是 触 友 器 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


定义 数据 库 触发 器 。 


- 使 用 BEFORE 和 AFTER 触发 器 。 


` 使 用 自治 事务 。 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 行 触发 器 和 语句 触发 器 。 


· 使 用 INSTEAD OF 触发 器 。 


13.3” 忆 结 


在 本 章 ， 我 们 开始 了 解数 据 库 触 友 器 ， 包 括 它们 的 性 质 ， 它 们 是 如 何 触 友 的 ， 都 有 哪些 类 型 的 触 友 器 可 用 ， 以 及 它们 的 可 能 用 法 。 我 们 还 学 习 了 如 
何 定 义 和 使 用 自治 事务 。 在 第 14 章 ,我 们 将 了 解 复合 触 友 器 及 它们 的 用 法 。 
顺便 况 况 

配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 


的 理解 程度 。 


第 14 草 ”变异 表 和 复合 触 友 器 


在 本 章 ， 你 将 学 习 如 下 内 容 : 


在 第 13 章 ， 我 们 探讨 了 触 上 友 器 的 概念 。 你 了 解 了 触 友 器 在 数据 库 中 的 用 法 、 会 导致 触 友 器 触 皮 的 事件 ， 以 及 不 同类 型 的 触及 器 。 在 本 章 ， 我 们 将 继 
续 探 讨 触 友 器 。 你 将 了 解 变异 表 问 题 ， 并 探讨 如 何 用 触 友 器 来 解决 这 些 问题 。 


14.1 节 介绍 变异 表 并 说 明 如 何在 Oracle 11g 之 前 的 数据 库 版 本 中 解决 与 它们 相关 的 问题 。14.2 节 研究 复合 触 友 器 ， 这 是 在 Oracle 11g 中 引入 的 ， 并 
讨论 如 何 将 它们 用 于 解决 变异 表 问 题 。 


14.1 实验 1: 变异 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
.了解 变异 表 。 


` 解决 变异 表 问 题 。 


14.2 30192: 复合 触 友 器 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


` 定义 复合 触发 


уз 


` 使 用 复合 触发 器 来 解决 变异 表 问 题 。 
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在 第 13 章 中 ， 我 们 开始 探讨 不 同类 型 的 PL/SQL 支 持 触 友 器 。 在 本 草 ， 我 们 继续 这 种 探讨 并 了 解 了 变异 表 问 题 。 我 们 学 会 了 如 何在 Oracle 11g 之 前 的 
版 本 中 解决 这 种 问题 。 最 后 ， 我 们 了 解 了 复合 触发 器 ， 这 是 在 Oracle 11g 中 引入 的 ， 并 学 到 了 如 何 用 这 些 类 型 的 触发 器 来 解决 变异 表 问 题 。 
顺便 说 说 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 


的 理解 程度 。 


在 本 章 ， 你 将 学 习 如 下 内 容 : 


. PL/SQL 表 


.多 级 集合 


本 书 已 经 探讨 了 不 同类 型 的 表示 单个 元 素 的 PL/SQL 标 识 符 或 变量 (例如 ， 表 示 一 个 特定 学 生 的 成 绩 的 变量 ) 。 然 而 ,我 们 经 常 希望 能 够 在 程序 中 表 
示 一 组 元 素 (例如 ， 一 个 班 的 学 生 的 成 绩 ) 。 为 了 支持 这 种 扩 术 ，PL/SQL 提 供 了 工作 方式 与 其 他 第 三 代 编 程 语 言 所 提供 的 数组 类 似 的 集合 数据 类 型 。 


15.1 实验 1: PL/SQL 表 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 关联 数组 。 

АЖЖ. 

` 使 用 集合 方法 。 


PL/SQL 表 类 似 于 只 有 一 列 的 数据 库 表 。 一 个 PL/SQL 表 的 行 不 以 任何 预定 义 的 顺序 存储 ， 然 而 ， 当 它们 被 提取 到 一 个 变量 中 时 ， 每 一 行 都 被 分 配 了 一 
个 从 1 开始 的 连续 下 标 ， 如 图 15-1 所 示 。 


图 15-1 显 示 了 一 个 由 整数 组 成 的 PL/SQL 表 。 每 个 数 都 被 赋予 了 对 应 于 它 在 表 中 的 位 置 的 唯一 下 标 。 例 如 ， 数 字 3 被 赋予 下 标 5， 因 为 它 是 存储 在 
PL/SQL 表 的 第 五 行 中 。 


Number (1) 


Number (2) 


Number (3) 


Number (4) 


Number (5) 


图 15-1 ”PL/SQL 表 


有 两 种 类 型 的 PL/SQL 表 : 关联 数组 (以 前 称 为 索引 表 ) 和 骨 套 表 。 它 们 具有 相同 的 结构 ， 它 们 的 行 的 访问 方式 也 相同 ， 也 就 是 ， 通 过 下 标 符号 访 
问 。 这 两 种 类 型 之 间 的 主要 区 别 在 于 ， 网 套 表 可 以 存储 在 数据 库 的 询 中 ， 而 天 联 数组 不 能 。 


15.2 ”实验 2: 变 长 数组 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 数组 。 


变 长 数组 ， 即 大 小 可 变 的 数组 ， 是 另 一 种 集合 类 型 。 类 似 于 PL/SQL 表 ， 变 长 数组 的 每 个 元 素 都 被 分 配 一 个 从 1 开始 的 连续 下 标 。 图 15-2 展 示 了 由 五 


个 整数 组 成 的 变 长 数组 ， 其 中 每 个 数 都 被 赋予 了 对 应 于 它 在 变 长 数组 的 位 置 的 唯一 下 标 。 


最 大 大 小 = 10 


Number Number Number Number Number 
(1) (2) (3) (4) (5) 
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变 长 数组 有 一 个 最 大 大 小 。 换 言 乙 ， 变 长 数组 的 下 标 有 一 个 等 于 1 的 固定 下 限 和 一 个 有 需要 时 可 扩展 的 上 限 。 在 图 12-2 中 ， 变 长 数组 的 上 限 是 ?2， 但 
它 可 以 扩展 到 6、7， 等 等 ， 最 大 为 10。 因 此 ， 一 个 变 长 数组 可 以 包含 多 个 元 素 ， 元 素 的 个 数 从 零 (清空 的 数组 ) 到 其 最 大 大 小 。 回 顾 一 下 ，PL/SQL 表 没 
有 必须 明确 指定 的 最 大 大 小 、。 


创建 变 长 数组 的 通用 语法 如 清单 15-7 所 示 (保留 字 和 括号 括 起 来 的 短语 是 可 选 的 ) 。 


88815-7 变 长 数组 


ТҮРЕ type пате IS {VARRAY | VARYING ARRAY} (size limit) OF element type [NOT NULL]; 
varray name ТҮРЕ МАМЕ; 


首先 ， 使 用 TYPE 语 句 定义 变 长 数组 结构 ， 其 中 type_name 是 在 第 二 步 中 用 于 声明 一 个 实际 变 长 数组 的 类 型 名 称 。 请 注意 ， 此 类 型 有 VARRAY 和 
VARYING ARRAY 两 个 变 体 。size_limit 是 一 个 正 整数 字面 量 ， 它 指定 一 个 变 长 数组 的 上 限 。 

其 次 ， 实 际 变 长 数组 是 基于 在 第 一 步 中 指定 的 类 型 声明 的 。 

考虑 清单 15-8 所 示 的 代码 片段 。 


清单 15-8 声明 一 个 变 长 数组 


DECLARE 
ТҮРЕ last пате type IS VARRAY (10) OF student.last пате$ТҮРЕ; 
last пате уаггау 1аѕ пате type; 


在 这 个 示例 中 ， 类 型 last_ пате _type 被 声明 为 基于 STUDENT 表 的 LAST_NAME 列 的 10 个 元 素 的 变 长 数组 。 接 着 ， 实 际 变 长 数组 last_name _varray 基 
于 last_name type 被 声明 。 类 似 于 谋 套 表 ， 一 个 变 长 数组 可 以 通过 CREATE TYPE 语 句 被 定义 为 独立 的 用 户 定义 类 型 。 


类 似 于 谋 套 表 ， 变 长 数组 在 被 声明 时 ， 它 是 自动 为 NULL 的 ， 并 且 在 它 的 各 个 元 素 可 以 被 引用 之 前 必须 被 切 始 化 。 在 15.1 节 中 使 用 的 示例 的 修改 版 
本 ，ch15_1c.sql， 此 版 本 的 脚本 使 用 变 长 数组 ， 而 不 是 使 用 启 套 表 (修改 后 的 语句 以 粗 体 突出 显示 ) 。 


示例 ch15_1d.sql 


DECLARE 
CURSOR пате сиг IS 
SELECT last name 
FROM student 
WHERE rownum < 10; 


ТҮРЕ last name type IS VARRAY (10) OF student.last name%TYPE; 


last name varray last name type := last name type(); 


v index PLS INTEGER := 0; 


BEGIN 
FOR name_rec IN name_cur 
LOOP 
v_index := v_index + 1; 
last_name varray .EXTEND; 
last пате уаггау (у index) := name rec.last папе; 
DBMS OUTPUT.PUT LINE ('last name('||v index||'):'||last пате varray (у index)); 
END LOOP; 
END; 
此 示例 产生 下 面 的 输出 : 


Kocka 
Jung 


last пате (1) 

Іаѕ пате (2) 

last пате (3): Mulroy 
last пате (4): Brendler 
last пате (5): Сагсіа 
last пате (6): Tripp 
last пате (7): Frost 
last пате (8): Snow 
last пате (9): Scrittorale 


基于 前 面 的 示例 ， 你 可 能 会 意识 到 ， 出 现在 15.1 节 中 的 集合 方法 也 可 以 用 于 变 长 数组 。 考 虑 下 面 的 示例 ， 
方法 的 用 法 : 
示例 ch15 3a.sq| 
DECLARE 


ТҮРЕ уаггау Суре 15 VARRAY (10) ОЕ NUMBER; 
уаггау уаггау суре := уаггау іуре (1, 2, 3, 4, 5, 6); 


ВЕСІМ 
DBMS_OUTPUT .PUT LINE ('varray.COUNT = ! | |уаггау.Со0чт); 
DBMS OUTPUT .PUT LINE ('varray.LIMIT = ! | |уаггау.1ІМмІТ); 
DBMS OUTPUT .PUT LINE ('уаггау.ЕІВЅТ = '||varray .FIRST),; 
DBMS OUTPUT .PUT LINE ('уаггау.1А$Т = ! | |уаггау.1АЅТ); 


-- 把 第 4 个 元 素 的 两 个 副本 追加 到 变 长 数组 
varray .EXTEND (2, 4); 


它 说 明了 在 应 用 于 变 长 数组 时 ， 各 种 集合 


DBMS OUTPUT .PUT LINE ('varray.LAST = !||уаггау.1АЅТ); 
DBMS OUTPUT .PUT LINE ('уаггау ('! | |уаггау.1АЅТ||') = !||уаггау (уаггау.1АЅТ)); 
修剪 最 后 两 个 元 素 
уаггау.ТВІМ (2); 
DBMS ООТРОТ.РОТ LINE ('уаггау.1АЅТ = ! | |уаггау.1АЅТ); 
END; 


此 示例 返回 下 面 的 输出 : 


о СО ОУ? н о 


уаггау .COUNT 
varray .LIMIT = 
varray .FIRST = 
varray .LAST = 
varray.LAST = 
уаггау (8) = 
Varray.LAST = 
输出 的 前 两 行 : 
varray.COUNT = 6 
varray.LIMIT = 10 
9 лОМІТИМІТЬ AAR. ШТ, COUNTA ЫЕ А —“&6бНрс а. EACAN, АШСООМТЛ AR 
回 6。 
输出 的 下 一 行 对 应 于 另 一 个 集合 方法 ，LIMIT。 此 方法 返回 一 个 集合 可 以 包含 的 元 素 的 最 大 数量 并 通常 用 于 变 长 数组 ， 这 是 因为 变 长 数组 有 一 个 在 声 
明 时 指定 的 上 限 。 此 变 长 数组 的 上 限 是 10， 所 以 LIMIT 方 法 返回 10。 


你 知道 吗 ? 
当 LIMIT 方 法 被 用 于 关联 数组 和 吝 套 表 时 ， 它 返回 NUIL， 这 是 因为 这 些 集合 类 型 不 具有 最 大 大 小 。 


输出 的 第 3 行 和 第 4 行 : 


уаггау.ЕІКТ = 1 
уаггау.ГА5Т = 6 


显示 FIRST 和 LAST 方 法 的 结果 。 输 出 的 第 5 行 和 第 6 行 : 


varray .LAST 8 
varray (8) = 4 


显示 用 EXTEND 方 法 增加 了 集合 的 大 小 后 ，LASTT 方 法 和 集合 的 第 8 个 元 素 的 值 。 请 注意 ，EXTEND 方 法 : 
varray .EXTEND (2, 4); 

把 第 4 个 元 素 的 两 个 副本 奶 加 到 集合 。 因 此 ， 第 7 个 和 第 8 个 元 素 都 包含 值 4。 

最 后 ， 输 出 的 最 后 一 行 : 
varray.LAST = 6 


显示 通过 TRIM 方 法 除去 最 后 两 个 元 素 之 后 的 最 后 一 个 下 标 值 。 


Ө 


注意 ”你 不 能 使 用 DELETE 方 法 来 删除 变 长 数组 的 元 素 。 不 同 于 PL/SQL 表 ， 变 长 数组 是 致密 的 ， 并 且 使 用 DELETE 方 法 会 导致 错误 ， 如 下 面 的 


示例 所 示 : 


DECLARE 

ТҮРЕ varray type IS VARRAY(3) OF CHAR (1) ; 

varray Varray type := varray type('A', 'B', 'С'); 
BEGIN 

varray .DELETE (3); 
END; 


ORA-06550: line 6, colum 4: 

PLS-00306: wrong number or types of arguments in call to 'DELETE' 
ORA-06550: line 6, column 4: 

PL/SQL: Statement ignored 


现在 ， 我 们 已 经 看 到 了 如 何 定义 和 使 用 这 三 种 集合 数据 类 型 : 关联 数组 、 裔 套 表 和 变 长 数组 。 表 15-1 总 结 了 它们 的 异同 。 


+151 关联 数组 、 早 套 表 和 变 长 数组 


集合 声明 时 的 状态 可 被 定义 致密 或 稀疏 


关联 数组 | 未 设置 тїн PLS_ E PL/SQL 决 、 包 、 过 | een 
INTEGER Рен РЕ ЖЕР 
在 PL/SQL 块 、 包 、 过 
INTEGER NULL 程 或 国 数 中 ， 并 在 模式 级 
别 作 为 独立 类 型 
在 PL/SQL 块 、 包 、 过 
INTEGER NULL Ен ра Н, HERRA 


清空 的 


开始 时 致密 ,但 
п] ЛЕЙ. 


йк 


别 作 为 独立 类 型 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 使 用 多 级 集合 。 


到 目前 为 止 ， 你 已 经 看 到 基于 诸如 NUMBER 和 VARCHAR2 的 标量 型 的 元 素 类 型 的 集合 的 各 种 示例 。 但 是 ，PL/SQL 还 提供 了 创建 其 元 素 类 型 是 基于 
集合 类 型 的 集合 能 力 。 这 样 的 集合 被 称 为 多 级 集合 


图 15-3 显 示 了 一 个 变 长 数组 的 变 长 数组 ， 也 被 称 为 藤 套 变 长 数组 。 在 本 例 中 ， 变 长 数组 的 变 长 数组 包括 三 个 元 素 ， 其 中 每 个 单独 的 元 素 都 是 一 个 由 
四 个 整数 组 成 的 变 长 数组 。 


УАККАҮ(4) OF INTEGER УАККАҮ(4) OF ІМТЕСЕ К УАККАҮ(4) OF INTEGER 


УАККАҮ(3) ОЕ УАККАҮ(4) ОЕ INTEGER 


9153 КжК 
为 了 引用 变 长 数组 的 变 长 数组 的 单个 元 素 ， 可 以 使 用 如 清单 15-9 所 示 的 符号 。 
清单 15-9 引用 内 套 变 长 数组 的 元 素 
变 长 数组 名 (外 层 变 长 数组 的 下 标 ) (内 层 变 长 数组 的 下 标 ) 


例如 ， 在 图 15-3 中 的 varray (1) (3) 等 于 6， 类 似 地 ，varray (2) (1) 等 于 1。 现 在 考虑 下 面 基 于 图 15-3 的 示例 。 


示例 ch15 4а.59 


DECLARE 
ТҮРЕ уаггау typel IS VARRAY (4) OF INTEGER; 
TYPE уаггау type2 IS VARRAY (3) OF уаггау typel; 


уаггау1 уаггау typel := уаггау typel(2, 4, 6, 8); 
varray2 varray type2 varray type2 (уаггау1) ; 
BEGIN 
DBMS OUTPUT.PUT LINE ('Varray of integers'); 
FOR 1 IN 1..4 
LOOP 
DBMS OUTPUT .PUT LINE ('varrayl('||iļ||'): '||уаггау1(1)); 
END LOOP; 


varray2 .EXTEND; 


varray2 (2) := varray_type1 (1, 3, 5, 7); 
DBMS OUTPUT.PUT LINE (chr (10) ||'Varray of varrays of integers'); 
FOR i IN 1..2 
LOOP 
FOR j IN 1..4 
LOOP 
DBMS _ OUTPUT .PUT LINE ('varray2('||i|| 9) C||j|[|'): '||varray2 (1) (j)); 
END LOOP; 
END LOOP; 
END; 


在 这 个 示例 的 声明 部 分 ， 定 义 了 两 种 变 长 数组 类 型 。 第 一 种 类 型 ，varray type1， 是 基于 INTEGER 数 据 类 型 的 ， 并 且 最 多 可 以 包含 四 个 元 素 。 第 二 
种 类 型 ，varray_type2， 是 基于 varray_type1 的 ， 并 且 最 多 可 以 包含 三 个 元 素 ， 其 中 每 个 元 素 本 身 最 多 可 以 包含 四 个 元 素 。 接 下 来 ， 你 基于 刚刚 描述 的 类 
型 声明 两 个 变 长 数组 。 第 一 个 变 长 数组 ，varray1， 被 声明 为 varray _type1 并 被 初始 化 ， 使 得 它 的 四 个 元 素 被 填充 为 前 四 个 偶数 。 第 二 个 变 长 数 
组 ，varray2， 被 声明 为 varray_type2， 使 得 每 个 单独 的 元 素 都 是 包含 四 个 整数 的 变 长 数组 ， 并 被 切 始 化 ， 使 得 它 的 第 一 个 变 长 数组 元 素 被 填充 。 


这 个 示例 的 可 执行 部 分 ， 运 行 后 在 屏幕 上 显示 的 varray1 的 值 。 接 下 来 ， 把 varray2 的 上 限 扩展 1 个 ， 并 填充 其 第 二 个 元 素 ， 如 下 所 示 : 


varray2 (2) := varray ёуре1 (1, 3, 5, 7); 


在 这 里 ， 你 正在 使 用 varray type1 相 应 的 构造 函数 ， 因 为 varray2 的 每 一 个 元 素 都 是 基于 varray1 集 合 的 。 换 言 之 ， 可 通过 以 下 两 个 语句 来 实现 相同 的 
结果 : 


уаттаул (2) 
уаггау2 (2) 


затгар жей» Br Бу Ji 
уаггау_Суре2(уаггау1); 


— Нуүаггау28)8 ATRA, ЭРЛИК РОК ИМЕН Ет ША, 
此 示例 产生 下 面 的 输出 : 


Varray of integers 
i 
уаггау1(2): 4 
уаггау1 (3): 6 
уаггау1 (4) : 8 


Varray of varrays of integers 
үаггау2(1) (1): 2 


Ју лоны оо нњ 


注意 分 隔 示 例 输出 的 两 个 部 分 的 空 行 。 包 仿 它 是 为 了 增加 可 读 性 ， 并 且 是 通过 在 DBMS_OUTPUT.PUT_LINE 语 句 中 添加 Oracle 的 内 置 立 数 
СНА (10) 创建 的 。 这 个 函数 添加 了 一 个 换行 ， 并 且 最 后 用 空 行 分 隔 了 输出 的 两 个 部 分 。 
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TAA, ВИ УРО НУЖКЕК ЕН, ЕУЕН, ВИА TANTEA ELAR, К, RAHNI ЯП 
Қар ВЛ AAE ТУНУУ ЕТЕП НАЧЕВ ЕНУ Ет. Бела, БИО TUER REARED ARAR., 


ЛИ тле 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


第 16 章 ”记录 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
记录 类 型 
` Ж “тож 
-记录 集合 


在 第 11 章 ， 我 们 简要 介绍 了 记录 类 型 的 概念 。 我 们 了 解 了 记录 是 一 种 可 以 将 不 同 但 相 天 的 数据 组 合成 一 个 逻辑 单元 的 复合 数据 结构 。 我 们 还 了 解 
到 ，PL/SQL 支 持 三 种 记录 类 型 : 基于 表 的 、 基 于 游标 的 和 用 户 定 义 的 。 在 本 章 ， 你 会 重 温 基于 表 和 基于 游标 的 记录 类 型 ， 并 了 解 用 户 定 义 的 记录 类 型 。 
此 外 ， 你 还 将 了 解 包含 集合 及 其 他 记录 的 记录 (MIRER) 和 记录 集合 。 


16.1 实验 1: 记录 类 型 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 基于 表 和 基于 游标 的 记录 。 

: 使 用 用 户 定义 的 记录 。 

- 了解 记录 兼容 性 。 


记录 结构 有 点 类 似 于 一 个 数据 库 表 的 一 行 。 每 个 数据 项 都 被 存储 在 具有 自己 的 名 字 和 数据 类 型 的 字段 中 。 例 如 ， 假 设 你 有 关于 公司 的 各 种 数据 ， 如 
名 称 、 地 址 和 员工 人 数 。 把 其 中 每 个 条 目 都 用 一 个 字段 表示 的 记录 可 以 让 你 把 一 个 企业 作为 一 个 逻辑 单元 处 理 ， 从 而 更 容易 组 织 和 表示 公司 的 信息 。 


Proxy Error 


The proxy server received an invalid response from an upstream server. 
The proxy server could not handle the request GET /resource/readBook. 


Reason: Error reading from remote server 


16.3 30193: 记录 集合 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
. 使 用 记录 集合 。 


在 16.2 节 中 ， 我 们 看 到 了 记录 的 一 个 字段 被 定义 为 一 个 关联 数 组 的 嵌 套 记录 的 示例 。 在 PL/SQL 中 还 可 以 定义 记录 的 集合 (例如 ， 一 个 关联 数组 ， 其 
元 素 类 型 是 基于 游标 的 记录 ) 。 下 面 的 示例 说 明了 这 种 用 法 。 


示例 ch16 9a.sq| 


DECLARE 
CURSOR пате сиг IS 
SELECT first name, last name 
FROM student 
WHERE ROWNUM <= 4; 


ТҮРЕ пате type IS TABLE ОЕ пате cur%ROWTYPE 
INDEX BY PLS ІМТЕСЕК; 


пате 七 ab пате Суре; 
у іпдех INTEGER := 0; 


ВЕСІМ 
FOR name гес IN пате cur 

LOOP 
v_index := v_index + 1; 


пате 七 ab (v_index).first_name := name_rec.first_name; 
пате tt 上 ab (у Index) .last пате := пате rec.last name; 


DBMS OUTPUT .PUT LINE('First Name('||v index ||'): ! || 
пате 七 ab (у index) .first пате); 
DBMS ООТРОТ.РОТ LINE('Last Name (' | |у index ||'): ! || 
пате 七 ab (у index) .last пате) ; 
END LOOP; 
END; 


XAAR ARNA пате сиг ЈЕ М, CREME FEMER. ШК, БЕМ TARKA, KARRI Е ERNE 
义 为 %ROWTYPE 的 基于 游标 的 记录 。 另 外 ， 此 脚本 还 定义 了 一 个 关联 数组 变量 ， 以 及 随后 用 于 引用 关联 数组 的 各 行 的 索引 变量 。 


本 例 的 执行 部 分 填充 此 关联 数组 ， 并 在 屏幕 上 显示 记录 。 在 前 面 的 示例 中 用 来 引用 数组 的 各 个 元 素 的 符号 如 清单 16-4 所 示 。 


清单 16-4 引用 记录 的 集合 


集合 名 称 (索引 ) .记录 字段 名 1 集合 名 称 (索引 ) .记录 字段 名 2 
http://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/15603/OEBPS/Text/.. .集合 名 称 (索引 ) .记录 字段 名 N 


要 引用 数组 中 的 每 一 行 ， 融 像 在 前 面 所 有 使 用 集合 的 示例 那样 使 用 素 引 变量 。 但 是 ， 由 于 这 种 天 联 数组 的 每 一 行 都 是 一 个 记录 ， 所 以 还 必须 引用 基 
础 记录 的 各 个 字段 。 


此 示例 产生 下 面 的 输出 : 


First Name (1) : George 
Last Name (1) : Kocka 
First Мате (2): Janet 
Last Name (2) : Jung 
First Name (3): Kathleen 
Last Name (3): Mulroy 
First Мате (4) : Joel 
Last Name (4) : Brendler 


接 下 来 ， 考 虑 前 面 的 示例 的 一 个 修改 版 本 。 在 这 个 版 本 中 ， 集 合 类 型 已 经 从 一 个 关联 数组 改 为 奉 套 表 (所 有 的 更 改 都 以 粗 体 显 示 ) 。 
示例 ch16 9b.sql 


DECLARE 
CURSOR name cur IS 
SELECT first_name, last_name 
FROM student 
WHERE ROWNUM <= 4; 


TYPE name type IS TABLE ОЕ name сиг%КОИТҮРЕ; 


name tab name type := name type(); 
v_index INTEGER := 0; 


BEGIN 
FOR пате гес IN пате сиг 

LOOP 
v_index := v_index + 1; 


name tab .了 EXTEND ; 


пате Сар (у index) .first пате := пате гес.Ёігѕ пате; 

name Сар (у іпдех) .last пате := пате гес.1аѕі пате; 

DBMS ООТРОТ.РОТ 1ІМЕ ('Рігѕ Name (' | |у іпаех | |'): '|| 
пате сар (у іпдех) .first пате); 

DBMS OUTPUT.PUT LINE('Last Name ('! | |у іпаех | |'): '|| 
пате ‘бар (у іпдех) .last пате) ; 

END LOOP; 
END; 


此 脚本 与 以 前 版 本 的 脚本 的 唯一 区 别 是 集合 类 型 声明 和 集合 初始 化 所 需要 的 方法 。 对 记录 及 其 各 个 字段 的 所 有 3 引用 都 保持 不 变 。 这 个 版 本 的 脚本 生 
成 的 输出 与 早期 版 本 相同 : 


First Name (1) : George 
Last Name (1) : Kocka 
First Name (2) : Janet 
Last Name (2) : Jung 
First Name (3): Kathleen 
Last Name (3): Mulroy 
First Name (4): Joel 
Last Name (4) : Brendler 


到 目前 为 止 ， 你 已 经 看 到 了 在 基于 指针 的 记录 类 型 上 定义 的 记录 集合 示例 。 接 着 ,考虑 在 用 户 定 义 记 录 类 型 上 定义 的 记录 集合 的 示例 |。 


示例 ch16 10a.sd| 


DECLARE 
CURSOR enroll cur IS 
SELECT first name, last пате, COUNT (*) total 
FROM student 
JOIN enrollment USING (student іа) 
GROUP BY first name, last name; 
TYPE enroll rec type IS RECORD 
(first name VARCHAR2 (15), 
last пате VARCHAR2 (30), 
enrollments INTEGER) ; 


TYPE enroll array type IS TABLE OF enroll гес type 
INDEX BY PLS _ INTEGER; 


епго11 сар епго11 -array туре; 
у index INTEGER := 0; 
ВЕСІМ 
РОК епго11 гес ІМ епго11 сог 
LOOP 
v_index := v_index + 1; 


епго11 ёар (у іпӣех) .first пате := enroll_rec.first_name; 
enroll ёар (у index) .last пате enroll rec.last пате; 
enroll ёар (у index) .enrollments := enroll rec.total,; 


IF Vv index <= 4 
THEN 
DBMS OUTPUT.PUT LINE('First Name('||v index||'): '|| 
enroll ёар (у index) .first пате); 
DBMS OUTPUT .PUT LINE('Last Name('||v index||'): '|| 
enroll ёар (у index) .last пате) ; 
DBMS OUTPUT .PUT LINE ('Enrollments (' | |у іпаех | |'): '|| 
enroll ёар (у іпаех) .enrollments); 
DBMS ООТРОТ.РОТ LINE ('------------------- - '); 
END ТЕ; 
END LOOP; 
END; 


脚本 的 声明 部 分 包含 一 个 用 户 定 义 的 记录 类 型 enroll_rec_ type， 它 随后 在 关联 数组 类 型 enroll аггау type 的 声明 中 使 用 。 最 后 ， 关 联 数组 
enroll tab， 是 基于 enroll array type 声 明 的 。 


在 脚本 的 可 执行 部 分 ， 关 联 数组 enroll_tab， 通 过 游标 FOR 循环 被 填充 ， 在 屏幕 上 显示 关联 数组 的 前 四 个 记录 。 
在 运行 时 ， 此 脚本 产生 如 下 输出 : 


First Мате (1): Judy 
Last Name (1) : Sethi 
Enrollments(1): 1 
First Name (2) : Larry 
Last Name (2) : Walter 
Enrollments (2): 2 
First Name (3) : Winsome 
Last Name (3): Laporte 
Enrollments (3): 2 
First Name (4): Hiedi 
Last Name (4) : Lopez 
Enrollments (4): 1 
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在 本 章 ， 我 们 了 解 了 PL/SQL 驻 持 的 不 同类 型 的 记录 ， 并 了 解 了 如 何 操纵 单个 记录 元 素 。 我 们 也 了 解 了 记录 的 兼容 性 ， 并 探讨 了 它 是 如 何 影 响 对 记录 
相互 赋值 或 比较 的 能 力 的 。 此 外 ， 我 们 友 现 了 不 同 的 记录 类 型 可 以 相互 底 套 ， 并 学 会 了 如 何 定义 和 操作 包含 集合 元 素 的 记录 。 最 后 ， 我 们 学 会 了 如 何 定 


义 和 处 理 记 录 集 合 。 


顺便 说 襄 
配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获得 的 一 切 技能 来 测试 你 


的 理解 程度 。 


第 17 草 ”本 地 动态 SQL 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
. EXECUTE IMMEDIATE ё 


· OPEN-FOR、FETCH 和 CLOSE 语句 

一 般 情况 下 ，PL/SQL 应 用 程序 执行 指定 的 任务 并 操纵 一 组 静态 表 。 例 如 ， 一 个 存储 过 程 可 能 会 接受 一 个 学 生 |D， 并 返回 学 生 的 名 字 和 姓 。 在 这 样 的 
过 程 中 ， 一 个 SELECT 语 句 是 预先 已 知 的 ， 并 被 编译 为 程序 的 一 部 分 。 这 样 的 SELECT 语 句 被 称 为 静态 的 ， 因 为 它们 在 各 次 执行 之 间 不 会 更 改 。 

现在 ， 考 虑 一 种 不 同类 型 的 PL/SQL 应 用 程序 ， 其 中 的 SQL 语 句 是 基于 一 组 在 运行 时 指定 的 参数 动态 建立 的 。 例 如 ， 一 个 应 用 程序 可 能 需要 基于 预先 
不 知道 的 表 和 列 名 ， 或 根据 请 求 报告 的 用 户 指定 的 数据 排序 和 分 组 的 SQL 语句 构建 各 种 报告 。 同 样 ， 另 一 个 应 用 程序 可 能 需要 基于 在 运行 时 用 户 指定 的 操 
作 来 创建 或 删除 表 或 其 他 数据 库 对 象 。 由 于 这 些 SQL 语 句 是 动态 产生 的 并 可 能 会 随时 间 友 生 更 改 ， 所 以 它们 被 称 为 动态 的 (dynamic) 。 

PL/SQL 有 一 个 功能 叫做 本 地 动态 (native dynamic) SQL (简称 “动态 SQL”) ， 可 以 帮助 你 建立 类 似 于 以 前 摘 述 的 那些 应 用 程序 。 使 用 动态 SQL 
使 得 这 类 应 用 程序 灵活 、 多 功能 ， 并 且 简 洁 ， 因 为 它 省 去 了 复杂 的 编程 方法 。 本 地 动态 SQL 比 Oracle 提 供 的 有 类 似 功能 的 DBMS_SQL 包 使 用 起 来 更 加 方 


便 。 在 本 章 ， 我 们 将 学 习 如 何 创建 和 使 用 动态 SQL。 


17.1 实验 1: EXECUTE IMMEDIATE 语 句 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 

- 使 用 EXECUTE IMMEDIATE 语 身 。 

. 使 用 EXECUTE IMMEDIATE 语 名 时 避免 ORA 错 误 。 
一 般 来 说 ， 动 态 SQL 语 句 是 由 你 的 程序 基于 在 运行 时 指定 的 参数 构建 并 作为 字符 串 存 储 的 。 这 些 字符 串 必 须 包 含有 效 的 SQL 语 句 或 PL/SQL 人 代码。 考 
虑 下 面 的 动态 SQL 语 句 示例 : 


'SELECT first паме, last пате FROM student 
WHERE student іа = :student 14' 


这 个 SELECT 语句 对 于 给 定 的 学 生 ID 返 回 学 生 的 姓 和 名 字 。 学 生 1D 的 值 事 先是 不 知道 的 ， 它 倍 助 一 个 绑 定 参数 (bind argument) ，:student _id 来 指 
。 绑 定 参数 充当 一 个 未 声明 的 标识 符 的 占 位 待 ， 它 的 名 字 必 须 用 冒号 作为 前 缀 。 因 此 ，PL/SQL 不 区 分 下 述 语句 : 


ali 


'SELECT first пате, last пате 

FROM student WHERE 

student 1Q = :student 14' 

'SELECT first пате, last пате 

FROM student WHERE student іа = :1d' 


为 了 处 理 动态 SQL 语句 ， 可 以 使 用 EXECUTE IMMEDIATE 或 OPEN-FOR、FETCH 和 CLOSE 语句 。EXECUTE IMMEDIATE 用 于 单行 SELECT 语句 、 所 
有 的 DML 语 句 和 DDL 语 句 ， 而 OPEN-FOR、FETCH 和 CLOSE 语句 用 于 多 行 的 SELECT 语句 和 引用 游标 。 


你 知道 吗 ? 


为 了 提高 动态 SQL 语句 的 性 能 ， 也 可 以 使 用 BULK EXECUTE IMMEDIATE, BULK FETCH, FORALLÆCOLLECT INTO 语 句 。 然 而 ， 这 些 语句 超出 
了 本 书 的 范围 ， 并 且 不 包括 在 这 里 。 你 可 以 在 Otacle 的 联机 帮助 中 找到 它们 的 用 法 的 详细 解释 和 示例 。 


17.2 实验 2: OPEN-FOR、FETCH 和 CLOSE 语句 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 使 用 OPEN-FOR 语 句 。 
- 使 用 FETCH 语 句 。 


- 使 用 CLOSE 语 铝 。 


OPEN-FOR、FETCH 和 CLOSE 语句 用 于 多 行 查 询 或 游标 。 这 个 概念 与 你 在 第 11 章 中 遇 到 的 静态 游标 处 理 是 非 营 相似 的 。 正 如 静态 游标 的 情况 ， 首 先 
将 一 个 游标 变量 与 一 个 查询 天 联 。 接 下 来 ， 打 开 此 游标 变量 ， 使 其 指向 结果 集 的 第 一 行 。 接 下 来 ， 从 结果 集中 逐 行 读 取 。 最 后 ， 当 所 有 行 都 已 被 处 理 
时 ， 关 闭 游 标 (游标 变量 ) 。 


17.3 RA 


在 本 章 ， 我 们 学 习 了 如 何在 PL/SQL 中 建立 本 地 动态 SQL 语句 ， 当 需要 编写 灵活 的 代码 时 ， 就 会 用 到 这 样 的 语句 。 动 态 SQL 可 以 在 运行 时 执行 不 同 的 
SQL 语句 ， 从 而 使 得 SQL 的 多 个 元 素 都 可 以 更 改 ， 比 如 表 和 列 。 本 章 研究 的 第 一 个 方法 是 EXECUTE IMMEDIATE 语 句 ， 你 还 学 到 了 如 何在 使 用 此 方法 时 
防止 各 种 Oracle 错 误 。 然 后 我 们 详细 解释 了 OPEN-FOR、FETCH 和 CLOSE 语句 ， 这 些 方法 用 于 多 行 查询 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


第 18 章 ”批量 3QL 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
- FORALL; 4 


· BULK COLLECTF ё) 


在 SQL 语句 中 绑 定 集合 


在 第 1 章 ， 我 们 了 解 到 PL/SQL 引 警 把 SQL 语句 上 太 送 到 SQL 引 警 ， 然 后 将 结果 返回 到 PL/SQL 引 警 。PL/SQL 和 SQL 引擎 之 间 的 通信 也 被 称 为 上 下 文 切 
换 。 这 些 上 下 文 切换 有 一 定 的 相关 性 能 开销 。 然 而 ，PL/SQL 语 言 具 有 许多 功能 ， 可 以 最 大 限度 地 降低 性 能 开销 ， 这 统称 为 批量 SQL (bulk SQL) 。 一 般 
来 说 ， 如 果 一 个 SQL 语 句 影 响 4 行 以 上 ， 批 量 SQL 就 可 能 显著 提高 性 能 。 批 量 SQL 支 持 对 SQL 语 句 及 其 结果 的 批量 处 理 ， 它 由 两 个 功能 组 成 ，FORALL 语 句 
和 BULK COLLECT 子 句 。 


从 Oracle 12c 开 始 ， 对 集合 数据 类 型 和 批量 SQL 的 支持 已 经 扩展 到 动态 SQL。 因 此 ， 当 你 使 用 EXECUTE IMMEDIATE 语 句 或 OPEN-FOR、FETCH 和 
CLOSE 语句 时 能 够 绑 定 集合 变量 。 在 18.3 节 中 将 详细 说 明 这 种 功能 。 


18.1 实验 1: FORALL 语 各 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
· 使 用 FORAIL 语 句 。 
- 使 用 SAVE EXCEPTIONS 选 项 。 
- 使 用 INDICES OF 选项 。 
- 使 用 VALUES OF 选项 。 
考虑 由 数字 FOR 循环 封闭 的 和 迭代 10 次 的 INSERT 语 句 ， 如 清单 18-1 所 示 。 


清单 18-1 由 一 个 数字 FOR 循环 封闭 的 INSERT 语 句 


FOR 1 TN Ls 90 


LOOP 
INSERT INTO table name 
VALUES (ы 

END LOOP; 


这 个 INSERT 语 句 将 从 PLMSQL 引 擎 被 友 送 到 SQL 引擎 10 次 。 换 句 话说， 发 生 10 次 上 下 文 切换。 但 是 ， 如 果 把 数字 FOR 循环 蔡 换 为 FORALL 语 句 ， 那 么 
INSERT 语 句 束 只 从 PL/SQL 引 苟 友 送 到 SQL3 引 | 敬一 次 ,但 它 仍然 执行 10 次 。 在 这 种 情况 下 ， 在 PL/SQL 和 SQL 之 间 只 有 一 次 上 下 文 切换 。 


18.2 20132: BULK COLLECT 子 名 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 BULK COLLECT 子 句 。 


BULK COLLECT 子 句 读 取 结 果 的 批 次 ， 并 把 它们 从 SQL 引擎 取 回 到 PL/SQL 引 警 。 人 例如， 考虑 针对 STUDENT 表 返 回 学 生 的 ID、 名 字 和 姓 的 游标 。 一 
上 且 打 开 此 游标 ， 这 些 行 就 被 逐 行 地 读 取 ， 直 到 所 有 行 都 已 被 处 理 为 止 。 然 后 游标 关闭 。 这 些 步骤 如 下 面 的 示例 所 示 。 


示例 ch18 6a.sd| 


DECLARE 
CURSOR student cur 15 
SELECT student іа, first name, last пате 
FROM student; 


BEGIN 
FOR rec IN student сиг 
LOOP 
DBMS OUTPUT.PUT LINE ('student іа: '||rec.student_id); 
DBMS OUTPUT .PUT LINE ('first name: '||rec.first name),; 
DBMS OUTPUT.PUT LINE ('last name: '||rec.last пате); 
END LOOP; 
END; 


回顾 一 下 ， 游 标 FOR 循 环 隐 陈 地 打开 和 关闭 游标 并 读 取 游 标记 录 。 


可 以 利用 BULK COLLECT 子 句 来 完成 从 STUDENT 表 读 取 记 录 的 相同 任务 。 这 里 的 不 同 之 处 在 于 ，BULK COLLECT 子 句 将 一 次 性 从 STUDENT 表 读 取 
所 有 的 行 。 因 为 BULK COLLECT 读 取 多 个 行 ， 所 以 这 些 行 被 存储 在 集合 变量 中 。 


在 前 面 示例 以 下 的 修改 版 本 中 ， 游 标 处 理 被 替换 为 BULK COLLECT 子 句 。 
示例 ch18 6b.sql 


DECLARE 
-- 定义 要 被 вок COLLECT 子 名 使 用 的 集合 类 型 和 变量 
ТҮРЕ student іа type IS TABLE OF student.student 1а$ТҮРЕ; 
TYPE first_name_type IS TABLE OF student.first_name%TYPE; 
TYPE last name type IS TABLE OF student.last_name%TYPE; 


ѕсџдепі іа ёар Btudent іа Туре; 
first пате ёар first пате type; 
last пате ёар last пате type; 


ВЕСІМ 
-- 通过 BULK COLLECT 子 名 一 次 读 取 所 有 学 生 的 数据 
SELECT student 1id, first name, last пате 
BULK COLLECT INTO student іа tab, first пате сар, last пате 七 ab 
FROM Student ; 


FOR і IN student іа tab.FIRST..student іа tab .LAST 


LOOP 
DBMS _ OUTPUT .PUT LINE ('student іа: '||student іа tab (1) ) ; 
DBMS OUTPUT.PUT LINE ('first паме: '||first пате tab(Ii) ) ; 
DBMS OUTPUT .PUT LINE ('last пате: '||last пате бар (і)); 
END LOOP; 
END; 


这 个 脚本 声明 了 三 个 谋 套 表 类 型 和 变量 。 这 些 变量 用 于 存储 带 有 BULK COLLECT 子 句 的 SELECT 语句 返回 的 数据 。 因 为 这 个 版 本 的 脚本 使 用 BULK 
COLLECT 子 句 ， 所 以 无 需 声 明和 处 理 游标 。 


你 知道 吗 ? 


当 谱 套 表 是 通过 带 BULK COLLECT 子 多 的 SELECT 填充 时 ， 它 们 被 初始 化 和 自动 扩展 。 回 顾 一 下 ， 识 套 表 通 常 必 须 在 使 用 它 之 前 通过 调用 与 徐 套 表 
类 型 具有 相同 名 称 的 构造 隙 数 来 初始 化 。 一 旦 租 套 表 被 初始 化 ， 在 可 以 赋予 它 下 一 个 值 之 前 ， 必 须 通 过 EXTEND 方 法 对 它 进行 扩展 。 


为 了 显示 已 被 读 入 各 个 集合 的 数据 ， 此 脚本 通过 数字 FOR 循 环 遍 历 它 们 。 注 意 ， 循 环 计 数 器 的 上 限 和 下 限 是 通过 FIRST 和 LAST 方 法 指定 的 。 
你 知道 吗 ? 


BULK COLLECT 子 多 类 似 于 SELECT 语句 ， 当 不 返回 任何 记录 时 不 引发 NO_DATA_FOUND 异 常 的 游标 循环 。 因 此 ， 检 查 它 所 生成 的 集合 中 是 否 包 
含 任何 数据 被 认为 是 很 好 的 做 法 。 


因为 BULK COLLECT 子 句 不 限制 集合 的 大 小 并 目 动 扩展 它 ， 当 SELECT 语句 返回 大 量 数据 时 ， 对 结果 集 加 以 限制 也 是 一 个 不 错 的 主意 。 这 可 以 利用 


BULK COLLECT 与 游标 SELECT 语句 并 通过 添加 LIMIT 选 项 来 实现 。 
示例 ch18 6c.sqd| 


DECLARE 
CURSOR student сиг 15 
SELECT student іа, first пате, last пате 
FROM student; 
-- 定义 要 被 BULK COLLECT 子 名 使 用 的 集合 类 型 和 变量 
ТҮРЕ student іа type IS TABLE OF Student .Stuqaent 14%ТҮРЕ; 
ТҮРЕ first name type IS TABLE ОЕ student .first name%®%TYPE,; 
ТҮРЕ last пате type IS TABLE OF student .last name’%TYPE,; 


student іа tab student іа type; 
first name tab first_name_type; 
last пате ёар last пате type; 


-- 定义 要 被 LIMIT 子 句 使 用 的 变量 
у limit PLS INTEGER := 50; 


BEGIN 
ОРЕМ student cur; 
LOOP 
-- 一 次 读 取 50 行 
FETCH student сиг 
BULK COLLECT INTO student 1а tab, first name tab, last name 七 ab 
GIMIT v Limit; 


EXIT WHEN student іа tab.COUNT = 0; 


FOR i IN student id tab.FIRST..student id tab.LAST 
LOOP 
DBMS OUTPUT .PUT LINE ('student іа: '||student іа tab(i)); 
DBMS OUTPUT.PUT LINE ('first пате: '||first пате tab(I) ) ; 
DBMS _ OUTPUT .PUT LINE ('1аѕё name: '||last пате ёар (і)) 
END LOOP ; 
END LOOP; 
CLOSE student сиг; 
END; 


+ 


' 


这 个 版 本 的 脚本 采用 BULK COLLECT 子 句 的 LIMIT 选 项 来 从 STUDENT 表 一 次 读 取 50 行 。 换 名 话说， 每 个 集合 将 包含 最 多 50 个 记录 。 为 了 完成 这 个 任 
务 ， 我 们 将 BULK COLLECT 子 句 与 游标 循环 结合 使 用 。 在 本 例 中 ， 循 环 的 退出 条 件 基 于 集合 中 的 记录 数 ， 而 不 是 student_ cur%NOTFOUND 属 性 。 

请 注意 在 屏幕 上 显示 信息 的 数字 FOR 循环 是 如 何 被 移动 到 游标 循环 中 的 。 之 所 以 这 么 做 ， 是 因为 被 BULK COLLECT 子 句 新 读 取 的 每 一 批 50 个 记录 将 
取代 在 上 一 次 迭代 中 读 取 的 前 一 批 50 个 记录 。 

到 目前 为 止 ， 你 已 经 看 到 了 把 数据 读 取 到 基础 元 素 是 简单 数据 类 型 ， 如 NUMBER 或 VARCHAR2 的 集合 中 的 BULK COLLECT 子 句 的 示例 。 然 
m, BULK COLLECT 子 句 也 可 以 用 于 把 数据 读 取 到 记录 或 对 象 集合 中 。 对 象 集 合 将 在 第 23 章 中 讨论 。 在 前 面 示例 的 以 下 修改 版 本 中 ， 学 生 数 据 被 读 入 用 
户 定义 的 记录 集合 中 。 


示例 ch18 6d.sql 


DECLARE 
CURSOR student cur 15 
SELECT student іа, first паме, last пате 


FROM student; 


-- 定义 记录 类 型 

ТҮРЕ student rec Т5 RECORD 
(student id student.student id%TYPE, 
first пате student .first пате%ТҮРЕ, 
last пате student.last пате%ТҮРЕ); 


-- 定义 集合 类 型 


TYPE student type IS TABLE OF student гес; 


-- 定义 集合 变量 


student 七 ab student type; 


-- 定义 要 被 LIMIT 子 句 使 用 的 变量 


у limit PLS INTEGER := 50; 


BEGIN 
ОРЕМ student cur; 
LOOP 
-- 一 次 读 取 50 行 
FETCH student сог BULK COLLECT INTO student tab LIMIT у limit; 


EXIT WHEN student tab.COUNT = 0; 


FOR і IN student tab.FIRST..student tab.LAST 
LOOP 
DBMS OUTPUT.PUT LINE ('student_id: '||student tab(i) .student іа); 
DBMS OUTPUT .PUT LINE ('first_name: '||student tab (і) .Ғігѕё пате); 
DBMS OUTPUT .PUT LINE ('last_name: '||student tab(i).last name),; 
END LOOP; 
END LOOP; 
CLOSE student сит; 
END; 


在 这 个 版 本 的 脚本 中 ， 由 游标 返回 的 结果 集 被 读 取 到 用 户 定义 的 记录 集合 student tab 中 。 因 此 ， 带 有 BULK COLLECT 选 项 的 FETCH 语 句 并 不 需要 引 
用 单个 记录 元 素 。 
本 示例 的 所 有 版 本 都 产生 相同 的 输出 ， 这 里 显示 了 它 的 一 部 分 : 


student id: 
first_name: 


230 
George 


last_name 


student id: 
first_name: 
: Jung 
student 1а: 
first_name: 
: Mulroy 


last_name 


last_name 


student іа: 
first_name: 
: Brendler 


last_name 


: Коска 


дла 
Janet 


233 
Kathleen 


234 
Joel 


到 目前 为 止 ， 你 已 经 看 到 了 如 何 使 用 珊 BULK COLLECT 子 句 的 SELECT 语 句 。 但 是 ,通常 情况 下 ULK COLLECT 是 用 于 INSERT、UPDATE 和 DELETE 
语句 的 。 在 这 种 情况 下 ，BULK COLLECT 子 句 可 以 与 RETURNING 子 句 一 起 使 用 ， 如 下 面 的 示例 所 示 。 


示例 ch18 7a.sql 


DECLARE 
-- 定义 集合 类 型 和 变量 
ТҮРЕ гом пиш type IS TABLE OF NUMBER INDEX BY PLS INTEGER; 
TYPE row text type IS TABLE OF VARCHAR2 (10) INDEX BY PLS INTEGER; 


гом пит tab гом num Суре; 
гом сех ёар гом text уре; 


BEGIN 
DELETE FROM test 
RETURNING row num, гом text 
BULK COLLECT INTO ром пит tab, row text tab; 
DBMS _ OUTPUT .PUT LINE ('Deleted '||SQL%ROWCOUNT||' rows:'); 


FOR і ІМ гом пот tab.FIRST..row_ num tab .LAST 


LOOP 
DBMS OUTPUT .PUT_LINE 
("гом пот = '||row num tab (i)||' row_text = ' ||row_text_tab(i)); 
END LOOP; 
COMMIT; 
END; 


此 脚本 删除 在 18.1 节 中 创建 并 填充 的 TEST 表 的 记录 。 DELETE 语 句 通过 RETURNING 子 句 返 回 ROW_NUM 和 ROW_TEXT 值 。 这 些 值 然后 由 BULK 
COLLECT 子 句 读 取 到 两 个 集合 ，row_num _tab 和 row_text_tab 中 。 接 着 ,为 了 显示 已 读 入 单个 集合 中 的 数据 ， 通 过 数字 FOR 循 环 来 遍历 它们 。 


在 运行 时 ， 此 脚本 将 产生 如 下 输出 : 


Deleted 7 rows: 

гом пат = 2 гом text = гом 
гом num = 3 гом text = гом 
гом пат = 4 гом text = гом 
гом пат = 6 гом text = гом 
гом пит = 8 гом text = гом 
гом пит = 9 гом text = гом 
гом пат = 10 гом text = гом 10 


\D СО юж о м 


正如 前 面 所 提 到 的 ，BULK COLLECT 子 句 类 似 于 当 没 有 行 由 SELECT 语 句 返 回 时 不 会 产生 一 个 NO_DATA_FOUND 异 常 的 游标 循环 。 下 面 的 示例 说 明 
1—4. 


示例 ch18 8a.sq| 


DECLARE 
-- 定义 集合 类 型 和 变量 
ТҮРЕ гом num type IS TABLE OF NUMBER INDEX BY PLS INTEGER; 
TYPE row text type IS TABLE OF VARCHAR2 (10) INDEX BY PLS INTEGER; 


гом num tab гом num type; 
row text tab row text type; 


BEGIN 
SELECT гом num, row text 
BULK COLLECT INTO row_num tab, row text_tab 
FROM test; 


FOR i IN row num tab.FIRST..row num 七 ab .LAST 


LOOP 
DEMS ООТРОТ.РОТ LINE 
("гом пит = '||row num tab(i)||' row_text = ' ||row text tab(i)); 
END LOOP; 


END; 


在 这 个 示例 中 ， 数 据 被 从 TEST 表 查询 出 来 并 填充 到 两 个 集合 ，row_num _tab 和 row_text_tab 中 。 这 是 通过 BULK COLLECT 子 句 来 完成 的 。 接 着 ,将 
集合 的 数据 通过 数字 FOR 循环 显示 在 屏幕 上 ， 用 由 row_num tab.FIRST 和 row_num _tab.LAST 方 法 返回 的 值 作 循环 的 下 限 和 上 限 。 


乍 一 看 ， 这 个 示例 似乎 与 早 些 时 候 在 这 个 实验 中 出 现 的 示例 ch18 6b.sq| 非 党 相似 ， 因 为 它们 遵循 相同 的 步骤 。 第 一 ， 声 明 集合 类 型 和 变量 。 第 二 ， 
把 数据 选择 到 集合 变量 中 。 第 三 ， 在 屏幕 上 显示 集合 变量 中 的 数据 。 然 而 ， 在 运行 时 ， 此 脚本 引 友 以 下 异常 : 


ORA-06502: PL/SQL: numeric or value error 
ORA-06512: at line 14 


这 个 错误 是 由 


FOR і ІМ row num 七 ab .FIRST. .row num tab.LAST 


语句 导致 的 ， 因 为 集合 变量 中 没有 任何 数据 。 因 为 TEST 表 中 的 数据 在 ch18_7a.sql 示 例 中 删除 了 ， 所 以 会 发 生 这 种 情况 。 为 了 解决 这 个 问题 ， 此 示例 
应 作 如 下 修改 〈 受 影响 的 语句 以 粗 体 显示 ) : 


示例 ch18 8b.sql 


DECLARE 
ТҮРЕ гом num type 15 TABLE OF NUMBER INDEX BY PLS INTEGER; 
TYPE row text суре IS TABLE ОЕ VARCHAR2 (10) INDEX BY PLS INTEGER; 
гом num tab row num type; 
row text tab row text type; 


BEGIN 
SELECT гом пот, row text 


BULK COLLECT INTO гом num tab, row text 七 ab 
FROM test; 


IF row num 七 ab .COUNTIT != 0 


THEN 
FOR і ІМ гом num tab.FIRST..row_num 七 ab .DAST 
LOOP 
DBMS OUTPUT .PUT LINE 
("гом num = '||row пит ёар (і) | |' row text = ' || гом text tab(i) ) ; 
END LOOP; 
ELSE 
DBMS OUTPUT.PUT LINE ('гом num tab .COUNT = '||row num tab .COUNT) ; 
DBMS OUTPUT.PUT LINE ('row text tab.COUNT = '| |row text tab.COUNT) ; 
END ТЕ; 
END; 


在 运行 时 ， 这 个 版 本 的 脚本 不 引起 任何 异常 。 当 COUNT 万 法 返回 0 时 ，IF 语 句 的 计算 结果 为 FALSE， 如 以 下 的 输出 所 示 : 
гом пит tab.COUNT = 0 
гом text 上 ab .COUNI = 0 


在 本 章 ， 我 们 已 经 看 到了 如 何 使 用 FORALL 语 句 和 BULK COLLECT 子 句 。 现 在 我 们 将 考虑 结合 这 两 种 技术 的 一 个 示例 。 此 示例 使 用 MY ZIPCODE 
表 ， 它 是 基于 ZIPCODE 表 创建 的 。 注 意 ，CREATE TABLE 语 句 创建 一 个 空 表 ， 因 为 在 WHERE 子 句 中 指定 的 标准 不 返回 任何 记录 。 


示例 ch18 9a.sql 


CREATE TABLE my zipcode AS 
SELECT * 

FROM zipcode 

WHERE 1 = 2; 


DECLARE 
-- 声明 集合 类 型 
TYPE string type IS TABLE OF VARCHAR2 (100) INDEX BY PLS INTEGER; 
ТҮРЕ дасе type IS TABLE ОЕ DATE INDEX BY PLS INTEGER; 


-- 声明 要 被 FORALL 语句 使 用 的 集合 变量 


2ір 七 ab ѕігіпа буре; 
сісу бар string type; 
state_tab string_type; 
cr ру tab string_type; 
cr date tab дасе гуре; 

поа ру 七 ab string Суре; 


поа дасе tab date type; 


у гомѕ INTEGER := 0; 
ВЕСІМ 


-- 填充 各 个 集合 
SELECT * 
BULK COLLECT INTO zip ёар, city tab; state ёар, сг by ѓар, 
cr date_tab, mod_by tab, mod date_tab 
FROM zipcode 
WHERE state = 'СТ'; 


-- 填充 MY _ ZIPCODE Ж 
FORALL і in 1..zip tab.COUNT 
INSERT INTO ту zipcode 
(zip, city, state, created by, created date, modified by, 
modified date) 
VALUES 
(21р ёар(і), сісу Баһ) state ёар(і), пт Бру tabii), 
cr date tab(i), mod by сар (і), mod дасе бар (1)); 
СОММІТ; 


-- 检查 有 多 少 个 记录 被 添加 到 МҮ ZIPCODE Ж 
SELECT COUNT (*) 

INTO v_rows 

FROM my zipcode; 


DBMS OUTPUT.PUT LINE (v_rows||' records were added to MY_ZIPCODE table') ; 
END; 


这 个 脚本 用 从 ZIPCODE 表 中 选择 的 记录 来 填充 MY_ZIPCODE 表 。 为 了 局 用 BULK COLLECT 和 FORALL 语 句 ， 它 使 用 了 7 个 集合 。 需 要 注意 的 是 ， 用 
来 与 这 七 个 集合 关联 的 只 有 两 个 集合 类 型 。 这 是 因为 单个 的 集合 只 存储 两 个 数据 类 型 ，VARCHAR2 和 DATE。 在 运行 时 ， 此 示例 将 产生 下 面 的 输出 : 


| 关口 


19 records меге аддеа to МҮ ZIPCODE table 


接 下 来 ， 考 虑 另 一 个 FORALL 语 句 和 BULK COLLECT 子 句 与 DELETE 语 名 一 起 使 用 的 示例 。 在 这 个 示例 中 ，MY_ZIPCODFE 表 中 的 记录 被 删除 了 几 个 邮 
政 编码 ， 并 且 把 已 删除 的 邮政 编码 和 对 应 的 城市 名 称 分 别人 存储 在 zip_tab 和 city tab 集合 


示例 ch18 10a.sq| 


DECLARE 


-- 声明 集合 类 型 
ТҮРЕ string type IS TABLE OF VARCHAR2 (100); 


-- 声明 要 被 FORALL 语句 和 BULK COLLECT 子 句 使 用 的 集合 变量 

21р codes string type := string type ('06401', '06455', '06483', '06520', '06605'); 
2ір 七 ab string гуре; 

сісу tab string type; 


v_rows INTEGER := 0; 


BEGIN 
-- 从 MY ZIPCODE 表 中 删除 一 些 记录 
FORALL і іп 2ір codes.FIRST. .Zip codes .LAST 
DELETE FROM my zipcode 
WHERE zip = 2ір codes (і) 
RETURNING zip, city 
BULK COLLECT INTO zip tab, city tab; 
СОММІТ; 


DBMS ООТРОТ.РОТ LINE ('Тһе following records меге deleted from МҮ ZIPCODE table:'); 
FOR 1 іп жїр Ссар.РІКТ..2ір 七 ab LAST 
LOOP 
DBMS OUTPUT.PUT LINE ('Zip code '||zip tab(i)||', city '||city tab(i)); 
END LOOP; 
END; 


在 此 脚本 中 ，FORALL 语 句 针对 存储 在 zip_codes 集 合 中 的 邮政 编码 值 给 定 列表 运行 DELETE 语 句 。 另 外 ，DELETE 语 句 包含 了 RETURNING 子 句 和 
BULK COLLECT 子 句 ， 这 反 过 来 将 邮政 编码 和 城市 名 称 分 别 仓储 在 zip_ tab 和 city tab 集合 中 。 最 后 ， 用 数字 FOR 循环 来 显示 仓储 在 zip_ tab 和 city tab% 
合 中 的 数据 ， 如 脚本 的 下 列 输出 所 示 : 

The following records were deleted from MY ZIPCODE table: 
21р code 06401, city Апѕопіа 

Zip code 06455, city Middlefield 

Zip code 06483, city Oxford 


Zip code 06520, city New Haven 
Zip code 06605, city Bridgeport 


18.3 30093: 在 SQL 语 句 中 绑 定 集合 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 使 用 EXECUTE IMMEDIATE 语 名 时 绑 定 集合 。 
` 使 用 DPEN-FOR、FETCH 和 CLOSE 语句 时 绑 定 集合 。 


如 前 所 述 ， 在 Oracle 12c 中 已 经 添加 了 采用 动态 SQL 时 绑 定 集合 数据 类 型 的 功能 。 回 顾 一 下 ， 第 17 章 研究 了 动态 SQL， 我 们 学 会 了 如 何 使 用 
EXECUTE IMMEDIATE 语 句 和 OPEN-FOR、FETCH 和 CLOSE 语句 。 


184 КЕ 


在 本 章 ， 我 们 学 会 了 如 何 使 用 称 为 批量 SQL 的 功能 来 优化 PL/SQL 人 代码 。 从 根本 上 讲 ， 我 们 学 习 了 如 何 批 处 理 SQL 语 句 及 其 结果 ， 以 便 尽量 减少 与 
PL/SQL 程 序 和 SQL 引擎 之 间 的 上 下 文 切 换 次 数 相 关联 的 性 能 开销 。 上 有 具体 来 说 ， 我 们 了 解 了 FORALL 语 句 和 BULK COLLECT 子 句 。 此 外 ， 我 们 还 了 解 到 从 
Oracle 12c 开 始 ， 可 以 在 动态 SQL 中 使 用 批量 SQL 和 集合 数据 类 型 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


程 


ЕП 
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在 本 章 ， 你 将 学 习 如 下 内 容 : 

- 创建 过 程 

. 传递 过 程 的 IN 和 OUT 参 数 

到 目前 为 止 ， 我 们 编写 的 所 有 PL/SQL 都 是 作为 脚本 运行 的 ， 并 在 运行 时 由 数据 库 服 务 器 编译 的 匿名 块 。 现 在 ， 你 将 开始 使 用 模块 化 的 代码 。 模 块 化 
的 代码 是 一 种 从 不 同 的 部 分 (模块 ) 建立 程序 的 方法 ， 每 个 模块 都 执行 面向 程序 的 最 终 目标 的 特定 功能 或 任务 。 一 旦 模块 化 代码 被 仓储 在 数据 库 服务 器 
上 ,， 它 就 成 为 一 个 可 提供 给 其 他 程序 单元 重复 执行 的 数据 库 对 象 或 子 程序 。 为 了 把 代码 保生 到 数据 库 中 ， 需 要 将 源 代码 发 送 到 服务 器 ， 以 便 它 可 以 被 编 


译 成 p 代 码 并 存储 在 数据 库 中 。 这 个 过 程 将 在 以 下 三 章 研 究 。 本 章 非 常 简短 : 简要 介绍 了 存储 过 程 。 第 20 章 涵盖 了 存储 阔 数 的 基础 知识 ， 而 第 21 章 是 非常 
长 的 一 章 ， 它 将 所 有 的 材料 结合 到 一 起 来 研究 包 。 


在 本 章 的 第 一 个 实验 中 ， 你 将 了 解 更 多 关于 存储 代码 的 内 容 并 了 解 如 何 编写 一 类 被 称 为 过 程 的 存储 代码 。 在 第 二 个 实验 中 ， 你 将 了 解 参 数 传 入 和 传 
出 过 程 。 在 研究 存储 过 程 的 细节 之 前 ,我 们 先 介绍 模块 化 代码 的 好 处 。 


19.1 模块 化 代码 的 好 处 


PL/SQL 模 块 是 任何 完整 的 逻辑 工作 单元 。 共 有 五 种 类 型 的 PL/SQL 模 块 : @ 用 文本 脚本 运行 的 匿名 块 (到 现在 为 止 已 使 用 的 类 型 ) ; ONE; OR 
数 ; @ 包 ; @ 触 上 友 器 。 使 用 模块 化 的 代码 有 两 大 好 处 : @ 它 是 可 重用 的 ，@ 它 更 易于 管理 。 


可 以 用 SQL*Plus 创 建 一 个 过 程 或 用 众多 工具 之 一 来 创建 和 调试 存储 的 PLUSQL 代 码 。 如 果 使 用 SQL*Plus， 那 么 需要 在 文本 编辑 器 中 编写 代码 ， 然 后 


在 SQL*Plus 提 示 符 下 运行 它 。 


19.2 实验 1: 创建 过 程 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
实践 创建 过 程 的 语法 。 
. 查询 数据 字典 获取 过 程 的 信息 。 


过 程 是 执行 一 个 或 多 个 操作 的 模块 ， 它 并 不 需要 返回 任何 值 。 用 于 创建 过 程 的 语法 如 下 : 


CREATE OR REPLACE PROCEDURE 过 程 名 
[ (参数 [， 参 数 ，http://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/15603/0EBPS/Text/...])] 


[本 地 声明 ] 
BEGIN 

可 执行 语句 
[EXCEPTION 

异常 处 理 程序 ] 
END [过 程 名 ]; 


AS 


一 个 过 程 可 以 有 0 到 多 个 参数 (这 个 主题 在 19.3 节 中 研究 ) 。 每 个 过 程 都 有 两 部 分 : @ 标 头 部 分 ， 附 带 在 AS (或 有 时 是 1S 一 一 它们 是 可 互 换 的 ) 关键 
字 之 前 ， 并 包含 该 过 程 的 名 称 和 参数 列表 ; @ 过 程 体 ， 这 是 在 As (15) 关键 字 后 的 全 部 内 容 。REPLACE 这 个 词 是 可 选 的 。 当 程序 的 标 头 不 包含 此 关键 字 


时 ， 为 了 更 改过 程 的 代码 ， 你 必须 首先 删除 此 过 程 ， 然 后 重新 创建 它 。 因 为 改变 程序 的 代码 是 非常 常见 的 操作 ， 尤 其 是 当 它 正在 开 帮 中 的 时 候 ， 所 以 强 
烈 建 议 你 使 用 OR REPLACE 选 项 。 


193 30292: 传 馆 的 过 程 参数 IN 和 OUT 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


` 在 过 程 中 使 用 IN 和 OUT 参 数 。 


在 过 程 中 使 用 IN 和 和 OUT 参数 


参数 是 从 调用 环境 向 服务 器 传递 值 的 手段 ， 反 之 亦 然 。 这 些 值 通过 过 程 的 执行 被 处 理 或 者 返回 。 共 有 三 种 参数 模式 : IN、OUT 和 IN OUT, 
TA 


模式 指定 了 传递 的 参数 是 用 于 读 取 的 ， 还 是 作为 输出 的 接收 器 使 用 的 。 图 19-2 显 示 了 在 过 程 标 头 的 参数 和 过 程 执行 时 的 参数 之 间 的 关系 。 


ХУРЕД: 


PROCEDURE FIND МАМЕ (ID IN NUMBER, МАМЕ OUT УАКСНАК2) 


ЛУР: 


EXECUTE FIND МАМЕ (127, МАМЕ) 


919-2 ”将 一 个 过 程 调 用 与 过 程 标 头 匹配 


形式 参数 是 在 由 括号 括 起 来 ， 作 为 一 个 模块 标 头 的 一 部 分 的 指定 的 名 称 。 实 际 参数 是 调用 此 模块 时 ， 在 作为 参数 列表 的 括号 中 指定 的 值 表达 式 。 形 
陈 参数 和 相关 的 实际 参数 必须 是 相同 或 兼容 的 数据 类 型 。 表 19-1 介 绍 了 三 种 类 型 的 参数 。 


表 19-1 三 种 参数 


模式 用 途 
把 一 个 值 传 人 程序 ; 
ER FHR, RER: | 

ІМ А |": 
在 程序 中 不 能 被 更 改 ; аа 
默认 模式 
把 一 个 值 从 程序 传 回 ; 
不 能 赋予 默认 值 ; | 

= 必须 是 变量 ; а 
只 有 程序 成 功 才 被 赋予 一 个 值 

IN OUT 同时 是 传人 和 传 回 的 值 必须 是 变量 


3. 随 着 参数 值 一 起 传递 约束 (数据 类 型 ) 


形式 参数 不 需要 对 数据 类 型 进行 限制 。 例 如 ， 你 可 以 在 形式 参数 列表 中 只 对 参数 名 称 友 出 VARCHAR2， 而 不 是 指定 约束 ， 如 VARCHAR2 (60) 。 约 
束 在 执行 调用 时 随 着 值 一 起 传递 。 


4. 匹 配 实际 参数 和 形式 参数 


有 两 种 方法 可 以 用 来 匹配 实际 参数 和 形式 参数 : 位 置 表示 法 和 命名 表示 法 。 位 置 表示 法 是 简单 地 通过 位 置 关联 ， 也 融 是 说 ， 在 执行 程序 时 所 使 用 的 
参数 顺序 与 程序 标 头 中 的 顺序 正好 匹配 。 命 名 表示 法 是 用 符号 = > 明确 进行 天 联 。 它 的 语法 如 下 : 


形式 参数 名 => 实际 参数 值 


在 命名 表示 法 中 ， 上 顺序 并 不 重要 。 但 是 ， 如 果 将 两 种 表示 法 混用 ， 你 应 该 将 位 置 表示 法 列 在 命名 表示 法 前 面 。 


如 果 调 用 程序 时 不 包括 在 参数 列表 中 的 值 ， 默 认 值 就 会 被 使 用 。 请 注意 ， 使 用 哪 一 种 风格 是 没有 区 别 的 ， 它 们 都 以 类 似 的 方式 工作 。 


示例 ch19 2.sql 


CREATE OR REPLACE PROCEDURE find sname 
(i student id IN NUMBER, 
о first пате OUT VARCHAR2, 
о last пате OUT VARCHAR2 
) 
AS 
BEGIN 
SELECT first name, last name 
INTO о first name, о last name 
FROM student 


WHERE student іа = і student іа; 
EXCEPTION 
WHEN OTHERS 
THEN 


DBMS _ OUTPUT .PUT LINE('Error in finding student іа: 
'||i student id); 
END find sname; 


这 个 过 程 通 过 一 个 名 为 i1_ student id 的 参数 接受 一 个 student id。 它 传 出 参数 o_first_ name 和 o_last_ name。 此 过 程 是 一 个 简单 的 SELECT 语 句 ， 它 在 


STUDENT 表 中 的 student id 与 过 程 中 存在 的 唯一 |N 参 数 i_student id 的 值 相 匹 配 时 ， 检 索 first_name 和 last_ name。 要 调用 此 程序 ， 必 须 为 参数 
i_student id 传 入 一 个 值 。 


示例 ch19 3.59 


DECLARE 


Vv_local first пате student .first name®%TYPE; 


Vv_local last пате student.last пате%ТҮРЕ; 
BEGIN 


find sname 


(145, у Local first пате, у local last пате) ; 
DBMS OUTPUT.PUT LINE 


('Student 145 is: '||v local first пате | | 
' || local last пате||'.' 
); 
END; 


当 调 用 过 程 find_sname 时 ， 应 当 为 | student id 传 入 一 个 有 效 student_id。 如 果 它 不 是 一 个 有 效 student_id， 就 将 引发 一 个 异常 。 调 用 过 程 时 还 必 


须 列 出 两 个 变量 。v local first name 和 v_local last_name 这 两 个 变量 用 于 保存 传 出 的 参数 值 。 执 行 此 过 程 后 ， 这 些 局 部 变量 将 具有 值 ， 然 后 可 以 用 
DBMS OUTPUT.PUT LINE 语 句 显示 它们 。 


19.4 忆 结 


在 本 草 ， 我 们 学 习 了 如 何 创建 过 程 。 首 先 ， 你 看 到 了 如 何 创建 一 个 没有 参数 的 基本 过 程 。 然 后 ， 在 19.3 节 ， 你 看 到 了 如 何 把 参数 添加 a 到 过 程 来 缩小 
此 过 程 中 发 生 的 事务 处 理 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


з20®® БА 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
‚ 创建 函数 

- 在 SQL 语句 中 使 用 函数 

- 在 SQL 中 优化 函数 执行 


存储 在 数据 库 中 的 遂 数 很 像 过 程 ， 因 为 它 也 是 一 个 可 以 使 用 参数 和 被 调用 的 命名 PL/SQL 块 。 然 而 ， 逊 数 在 创建 方式 以 及 使 用 方式 上 与 过 程 有 两 个 关 
键 区 别 。 在 这 简短 的 一 章 ， 你 将 学 习 如 何 创 建 、 使 用 和 删除 函数 的 基础 知识 。 在 第 21 章 ， 你 将 学 习 当 把 函数 放置 到 包 中 时 ， 如 何 扩展 它们 。 


20.1 实验 1: Бр 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
_ 创建 存储 函数 。 
` 使 用 函数 。 


沙 数 是 与 过 程 非常 相似 的 另 一 种 类 型 的 存储 代码 。 两 者 之 间 的 最 大 区 别 是 ， 一 个 消 数 是 返回 单个 值 的 PL/SQL 块 。 遂 数 可 以 接受 一 个 、 多 个 参数 或 零 
个 参数 ， 但 在 其 执行 部 分 必须 有 return 子 句 。 返 回 值 的 数据 类 型 必须 在 立 数 的 标 头 中 声明 。 沙 数 的 运行 方式 与 过 程 不 同 ， 它 不 是 一 个 独立 的 可 执行 文 
件 ， 也 束 是 说 ， 消 数 必须 始终 在 某 些 上 下 文 下 使 用 。 你 可 以 把 它 看 作 等 同 于 一 个 语句 片段 。 消 数 产 生 的 输出 需要 被 赋予 一 个 变量 ,或 者 它 可 以 在 SELECT 
语句 中 使 用 。 


R K 


20.2 ”实验 2: 在 SQL 语句 中 使 用 站 数 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 在 SQL 语 名 中 调用 函数 。 


` 编写 复杂 的 函数 。 


20.3 30093: 在 SQL 中 优化 函数 执行 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


. 使 用 WITH 子 多 定义 函数 。 


- 使 用 UDF 编 译 指示 创建 函数 。 


在 Oracle 12.1 中 ， 引 入 了 一 些 人 允许 对 在 SQL 语句 中 使 用 的 函数 进行 优化 的 新 功能 。 特 别 是 ， 函 数 定 义 可 以 与 SELECT 操作 发 生 在 同一 个 语句 中 。 


20.4 545 


EAE, RIAI ГИЈА, ВИ TAMESIDE Била, Шеш У РИНКИ ВА ИЕЅОГН АЧИТ: 使 用 
WITH 函数 和 使 用 JUDF 编 译 指示 语法 。 
顺便 说 说 

配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获得 的 一 切 技能 来 测试 你 


的 理解 程度 。 


在 本 章 ， 你 将 学 习 如 下 内 容 : 


PRE 
` 包 的 实例 化 和 初始 化 
* SERIALLY_REUSABLE 包 


包 是 在 一 个 包 名 下 的 组 合 在 一 起 的 PLUSQL 对 象 的 集合 。 包 可 以 包括 过 程 、 阔 数 、 游 标 、 声 明 、 类 型 和 变量 。 把 对 象 收集 在 一 个 包 中 有 许多 好 处 。 在 
本 章 ， 你 将 学 习 如 下 内 容 : 这 些 好 处 ， 以 及 如 何 利用 它们 。 


21.1 实验 1: 创建 包 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 创建 包 规 范 。 
` 创建 包 体 。 
` 调用 已 存储 的 包 。 
` 创建 私有 对 象 。 


使 用 包 作 为 押 绑 你 的 函数 和 过 程 的 一 种 方法 有 许多 好 处 ， 第 一 个 好 处 是 ， 精 心 设计 的 包 是 对 象 ， 如 函数 、 过 程 、 全 局 变量 和 游标 的 一 个 逻辑 分 组 。 
在 第 一 次 调用 包 时 ， 它 所 有 的 代码 (解析 树 和 伪 代 码 [p 代 码 ]) 都 被 加 载 到 内 存 (Oracle 服 务 器 的 共享 全 局 区 [SGA]) 。 这 意味 着 ， 包 的 第 一 次 调用 代价 
是 非常 昂贵 的 ( 它 涉及 在 服务 器 上 的 大 量 处 理 ) ， 但 所 有 的 后 续 调 用 都 将 具有 改善 的 性 能 。 出 于 这 个 原因 ， 包 通 音 用 于 重复 调用 过 程 和 逆 数 的 应 用 程 
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序 。 


尽管 PHSQL 不 是 一 站 “真正 的 ”面向 对 象 的 编程 语言 ， 但 包 让 你 能 够 使 用 一 些 面 向 对 象 编 程 所 涉及 的 概念 。 使 用 PLUSQL 包 ， 你 可 以 汇集 阔 数 和 过 
程 ， 并 为 它们 提供 一 个 环境 。 因 为 包 的 所 有 代码 都 被 加 载 到 内 存 中 ， 你 也 可 以 编写 自己 的 代码 ， 以 便 把 类 似 的 代码 以 允许 多 个 过 程 和 水 数 调用 它们 的 方 
式 放 入 包 中 。 如 果 计 算 逻 辑 相 当 密 集 ， 并 且 你 要 将 它 保持 在 一 个 地 方 ， 你 束 会 希望 这 样 做 。 


一 个 基本 的 货币 转换 的 示例 


如 果 你 把 同样 的 计算 写 在 多 个 地 方 ， 那 么 每 当 计 算 的 复杂 增加 时 ， 你 就 需要 做 大 量 的 维护 工作 。 例 如 ， 基 本 货币 转换 是 相当 简单 的 : 将 一 个 金额 乘 
以 汇率 。 实 际 上 ， 货 币 转换 会 变 得 更 加 复杂 。 在 欧盟 成 立 后 ， 当 一 个 国家 采用 欧元 作为 本 国货 币 时 ,个 别 国家 的 货币 就 会 被 淘汰 。 欧 盟 随 后 通过 了 关于 
如 何 转换 这 些 “ 死 ”的 货币 的 复杂 政策 。 如 果 合 同 在 货币 可 用 时 签订 ,但 后 来 货币 被 淘汰 ， 那 么 这 种 考虑 是 重要 的 。 例 如 ， 如 果 你 有 一 个 用 德国 马克 签 
订 的 旧 合同 需要 转换 成 美元 ， 就 会 经 历 这 个 过 程 。 合 同 金 额 首 先 将 基于 通行 汇率 从 德国 马克 转换 为 欧元 。 然 后 ， 它 将 根据 标准 的 含 入 机 制 ， 从 德国 马克 
舍 入 到 欧元 ， 然 后 它 将 按照 现行 汇率 从 欧元 转换 为 美元 。 如 果 你 的 程序 中 有 许多 地 方 都 包含 货币 换算 ， 那 么 把 转换 过 程 封 装 成 一 个 涵盖 这 种 欧元 场景 的 
函数 就 会 更 有 意义 。 此 函数 可 以 是 公共 或 私有 的 《这 些 概 念 在 本 章 的 后 面 解 释 ) 函数 ， 它 被 在 同一 个 包 中 的 所 有 其 他 过 程 调 用 。 


21.2 ”实验 2: 游标 变量 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 游标 变量 。 


到 目前 为 止 ， 你 已 经 从 本 书 看 到 了 用 来 从 单个 SELECT 语句 中 收集 特定 数据 的 游标 。 人 在 本 章 的 开始 部 分 ， 你 学 会 了 如 何 把 一 些 过 程 一 起 放 到 称 为 包 的 
大 程序 中 。 一 个 包 可 以 具有 被 几 个 过 程 所 使 用 的 一 个 游标 。 在 这 种 情况 下 ， 每 一 个 使 用 相同 游标 的 过 程 都 将 必须 声明 、 打 开 、 获 取 并 关闭 游标 。 在 
PL/SQL 的 当前 版 本 中 ， 游 标 可 以 像 任 何其 他 PL/SQL 变 量 那 样 声明 和 操作 。 这 种 类 型 的 变量 称 为 游标 变量 或 REF CURSOR, 游标 变量 只 是 静态 游标 的 一 
个 引用 或 句柄 。 它 允许 程序 员 对 需要 访问 此 游标 的 所 有 程序 单元 传递 这 个 对 同一 游标 的 引用 。 游 标 变量 在 运行 时 动态 绑 定 游标 的 SELECT 语句 。 


显 式 游标 用 来 命名 保存 多 行 查询 信息 的 工作 区 。 游 标 变量 可 以 用 来 指向 存储 多 行 查 询 结果 的 内 存 区 域 。 游 标 忌 是 指向 工作 区 中 相同 的 信息 ， 而 游标 
变量 可 以 指向 不 同 的 工作 区 。 游 标 是 静态 的 ， 但 游标 变量 可 以 被 看 作 是 动态 的 ， 因 为 它们 不 依赖 于 任何 一 个 特定 的 查询 。 游 标 变量 让 你 能 够 轻松 访问 集 
中 的 数据 检索 。 


你 可 以 在 存储 过 程 和 各 种 客 尸 端 之 间 使 用 游标 变量 传递 查询 结果 集 。 只 要 游标 变量 指向 某 个 查询 工作 区 ， 它 就 仍然 可 以 访问 。 因 此 ， 你 可 以 自由 地 
把 游标 变量 从 一 个 作用 域 传递 到 另 一 个 作用 域 。 游 标 变量 具有 两 种 类 型 : 强 与 弱 。 


为 了 执行 多 行 查询 ，Oracle 服 务 器 打开 一 个 叫做 游标 的 工作 区 来 存储 处 理 信息 。 要 访问 这 些 信息 ， 你 要 么 命名 此 工作 区 ， 要 人 么 使 用 指向 此 工作 区 的 
游标 变量 。 游 标 总 是 指向 相同 的 工作 区 ， 而 游标 变量 可 以 引用 不 同 的 工作 区 。 因 此 ， 游 标 和 游标 变量 不 能 互 操作 。 显 式 游标 是 静态 的 ， 并 与 一 个 SQL 语 句 
相关 联 。 相 反 ， 游 标 变量 可 以 在 运行 时 与 不 同 的 语句 相关 联 。 主 要 使 用 游标 变量 在 PL/SQL 存 储 子 程序 和 各 种 客户 端 ， 如 客户 端 Oracle Developer Forms 
应 用 程序 之 间 传 递 一 个 指向 查询 结果 集 的 指针 。 它 们 都 不 拥有 结果 集 ， 它 们 只 是 共享 一 个 指向 存储 结果 集 的 查询 工作 区 的 指针 。 你 可 以 在 客户 端 声明 游 
标 变 量 ， 在 服务 器 端 打 开 它 并 从 中 获取 数据 ， 然 后 继续 在 客户 端 从 中 获取 数据 。 


游标 变量 与 游标 的 区 别 和 常量 与 变量 的 区 别 几 乎 相同 。 游 标 是 静态 的 ， 而 游标 变量 是 动态 的 。 在 PL/SQL 中 ， 游 标 变 量 有 一 个 REF CURSOR 数 据 类 
型 ， 其 中 REF 代 表 引 用 ， 而 CURSOR 代 表 对 象 的 类 。 现 在 ， 你 将 学 习 声 明和 使 用 游标 变量 的 语法 。 


要 创建 一 个 游标 变量 ， 你 首先 需要 定义 一 个 REF CURSOR 类 型 ， 然 后 声明 此 类 型 的 一 个 变量 。 在 声明 一 个 强 类 型 的 REF CURSOR 之 前 ， 你 必须 声明 
一 个 具有 你 打算 使 用 SELECT 语句 得 到 的 结果 集 数 据 类 型 的 记录 (注意 ， 对 于 弱 REF CURSOR， 这 一 步 是 没有 必要 的 ) 。 
ТҮРЕ inst city type IS RECORD 


(first пате instructor.first паше%ТҮРЕ; 
last name instructor.last_name%TYPE; 


city zipcode .city%śTYPE; 
state zipcode .state%śTYPE) 


其 次 ， 你 必须 为 类 型 是 REF CURSOR 的 游标 变量 声明 一 个 复合 数据 类 型 。 语 法 如 下 : 


ТҮРЕ ref type пате is REF CURSOR [RETURN return typel]; 


ref_type_name 是 在 随后 的 声明 中 指定 的 类 型 。 返 回 类 型 代表 了 一 个 强 游标 的 一 个 记录 类 型 ， 弱 游标 不 具有 特定 的 返回 类 型 ， 而 能 够 处 理 SELECT 语 


句 的 数据 项 的 任意 组 合 。REF CURSOR 关 键 字 表明 ， 新 的 类 型 将 是 一 个 指向 已 定义 的 类 型 的 指针 。return_type 表 示 最 终 由 游标 变量 返回 的 SELECT 列 表 


的 种 类 。 返 回 类 型 必须 是 一 个 记录 类 型 。 
ТҮРЕ inst сісу сиг IS REF CURSOR RETURN inst city type; 
游标 变量 可 以 是 强 (限制 性 ) 或 弱 ( 非 限 制 性 ) 的 。 一 个 强 的 游标 变量 是 一 个 指定 了 return_type 的 REF CUR9OR 类 型 定义 ， 弱 游标 变量 的 定义 中 没 


有 指定 return_type。PLSQL 仅 允许 你 将 强 类 型 与 可 比 类 型 的 查询 相关 联 ， 而 弱 类 型 可 以 与 任何 查询 相关 联 。 这 使 得 一 个 强 的 游标 变量 更 不 容易 出 错 ， 但 
弱 REF CURSOR 类 型 会 更 加 灵活 。 


下 面 是 用 于 处 理 游 标 变量 的 关键 步骤 : 
1) 定义 并 声明 游标 变量 。 


打开 游标 变量 。 将 游标 变量 与 一 个 多 行 3SELECT 语 名 关联， 执行 查询 ， 并 确定 结果 集 。OPEN FOR 语句 可 以 为 不 同 的 查询 打开 同一 游标 变量 。 在 重新 
打开 某 个 游标 变量 之 前 ， 你 不 需要 关闭 它 。 请 记 住 ， 当 你 为 不 同 的 查询 重新 打开 游标 变量 时 ， 上 一 个 查询 会 去 失 。 在 程序 中 以 后 重新 打开 游标 变量 之 前 
关闭 它们 是 一 种 良好 的 编程 技术 。 


2) 从 结果 集 获取 行 。 

从 结果 集 逐 行 地 获取 行 。 请 注意 ， 游 标 变量 的 返回 类 型 必须 与 FETCH 语 句 的 INTO 子 句 中 命名 的 变量 兼容 。 

FETCH 语 句 从 结果 集 逐 行 地 获取 行 。PL/SQL 验 证 游标 变量 的 返回 类 型 与 FETCH 语 句 的 INTO 子 句 兼 容 。 对 于 返回 的 每 个 查询 列 的 值 ， 在 INTO 子 句 中 
都 必须 有 一 个 类 型 可 比 的 变量 。 此 外 ， 碍 询 的 列 数 必 须 等 于 变量 数 。 如 果 数 量 或 类 型 不 匹配 ， 那 么 强 类 型 游标 变量 会 在 编译 时 上 友 生 错误 ， 而 弱 类 型 游标 
变量 会 在 运行 时 上 友 生 错误 。 

3) 关闭 此 游标 变量 。 

下 面 的 示例 演示 如 何在 一 个 包 中 使 用 游标 变量 。 

示例 ch21 10.59 


CREATE OR REPLACE PACKAGE course pkg AS 
ТҮРЕ course гес Гур 15 RECORD 
(first name student.first Dame 和 TYPE， 


last name student, last пате%ТҮрРЕ, 
course_no course .course_nobTYPE, 


description course.description%TYPE, 
section по section.section no%TYPE 
); 
ТҮРЕ course cur IS REF CURSOR RETURN course гес typ; 
PROCEDURE get course _ list 
(p_student_id NUMBER , 
р instructor іа NUMBER 5 
course list_cv IN OUT course cur); 
END course pkg; 
/ 


CREATE OR REPLACE PACKAGE BODY course pkg AS 
PROCEDURE get _ course list 
(p_student_id NUMBER , 
p_instructor іа NUMBER , 
course list cv IN OUT course cur) 
IS 
BEGIN 


ТЕ p student іа IS NULL AND р instructor іа 
IS NULL THEN 
OPEN course list cv FOR 
SELECT 'Please choose a student-' First_name, 
'instructor combination' Last пате, 


NULL course_no, 
NULL description, 
NULL section no 
FROM dual; 


ELSIF p student id IS NULL THEN 
OPEN course list cv FOR 
SELECT s.first_name first_name, 

s.last_name last_name, 
C.course по сочгве по, 
с.аеѕсгіріёіоп description; 
se.section по section по 

FROM instructor і, student s, 
section se, course c, enrollment e 

WHERE 1.instructor іа = р instructor іа 
AND і.іпѕігосіог іа = se.instructor іа 


AND se.course по = C.CourSe по 
AND e.student id = S.Student іа 
AND e.section id = Se.section іа 


ORDER BY с.соцкве по, se.section по; 
ELSIF р instructor іа IS NULL THEN 


OPEN course list cv FOR 

SELECT 1.first пате first_name, 
i.last_name last_name, 
c.course no course по, 
c.description description, 
se.section no section по 

FROM instructor i, student s, 
section se, course c, enrollment e 

WHERE s.student_id = р student_id 

AND 1.instructor id = se.instructor id 


AND Seée.course по = C.course_no 
AND e.student іа = 8.student id 
AND e.section id = Se.Sectlon id 


ORDER BY с.соцгве по, se.section по; 
END ТЕ; 
END get course list; 
END course pkg; 


你 可 以 在 PL/SQL 和 存储 子 程序 和 各 种 客户 端 之 间 传 递 查 询 结果 集 。 这 种 方法 之 所 以 有 效 ， 是 因为 PL/SQL 和 它 的 客户 端 共享 一 个 指向 确定 结果 集 的 查询 
工作 区 的 指针 。 在 类 似 SQL*Plus 的 客 尸 端 程序 中 ， 这 可 以 通过 定义 一 个 具有 REF CURSOR 数 据 类 型 的 宿主 变量 来 保存 存储 程序 中 的 一 个 REF CURSORE 
成 的 查询 结果 来 完成 。 要 看 到 存储 在 SQL*Plus 变 量 中 的 内 容 是 什么 ， 可 使 用 SQL*Plus 的 PRINT 命 令 。 或 者 ， 你 也 可 以 使 用 SQL*Plus 命 令 SET 
AUTOPRINT ON 自动 显示 查询 结果 。 


在 脚本 ch21 10 中 ， 包 规范 包括 两 个 TYPE 声 明 。 第 一 个 是 用 于 记录 类 型 course гес type 的 。 声 明 此 记录 类 型 来 定义 将 用 于 游标 变量 的 SELECT 语句 
的 结果 集 。 当 一 个 记录 中 的 数据 项 不 与 单个 表 匹 配 时 ， 有 必要 建立 一 个 记录 类 型 。 第 二 个 TYPE 声 明 是 用 于 游标 变量 的 REF CURSOR。 此 变量 的 名 称 为 
course_cur， 并 被 声明 为 强 游标 ， 这 意味 着 它 只 能 用 于 单个 记录 类 型 。 记 录 类 型 是 course_rec type。course_pkg 中 的 get_course list 过 程 返 回 包含 三 个 
不 同 结果 集 的 游标 变量 。 每 个 结果 集 都 是 相同 的 记录 类 型 。 


. 第 一 种 类 型 用 于 两 个 IN 参数 ， 也 就 是 说 ， 学 生 ID 和 教师 ID 都 为 空 的 情况 。 这 将 产生 由 消息 “Please choose a student-instructor combination” (请 选择 


一 个 学 生 - 教 师 的 组 合 ) 组 成 的 结果 集 。 


. 运行 该 程序 的 第 二 种 方法 是 ， 如 果 instructof id 被 传 入 ,但 student іа =% (注意 IF 语句 p_student іа IS NUILL 的 第 二 个 子 多 表示 的 程序 逻辑 是 反 向 否 


定 ， 意 思 是 “ 当 instructor id 被 传 入 ”) 。 这 将 运行 一 个 SELECT 语句 来 填充 游标 变量 ， 它 保存 该 教师 教 的 所 有 课程 和 就 读 于 这 些 班级 的 学 生 的 列表 。 


. 运行 这 个 程序 的 第 三 种 方法 是 使 用 一 个 studeht_ id 而 不 使 用 instructoft_ id。 这 将 产生 一 个 包含 


该 学 生 参 加 的 所 有 课程 和 每 个 课 班 的 教师 的 结果 集 。 
请 记 住 ,一 旦 游标 变量 被 打开 ， 它 不 会 关闭 ， 直 到 你 明确 关闭 它 为 止 。 


下 面 的 SQL 语句 将 创建 一 个 游标 变量 类 型 的 变量 


VARIABLE course су REF CURSOR 


执行 此 过 程 有 三 种 方法 。 第 一 种 方式 是 传 入 一 个 学 生 ID， 而 不 传 入 一 个 教师 ID: 


exec course pkg.get course 11ізі (102, NULL, :course су); 


在 SQL*Plus 中 可 以 使 用 以 下 命令 显 


变量 Course cv 的 内 容 : 


SQL> print course су 


FIRST МАМЕ LAST МАМЕ COURSE NO DESCRIPTION 


— á- á- á- — — — 2 — — - á- á- á- — 2 2 — — 


Charles 
Nina 


SECTION NO 


Lowry 
Schorin 


25 Intro to Programming 2 
25 Intro to Programming з 


接 下 来 的 方法 是 传 入 一 个 教师 ID， 而 不 传 入 一 个 学 生 ID : 


SQL> exec course pkg.get course list (NULL, 102, 
PL/SQL procedure successfully completed. 


: course су); 


SQL> print course су 


FIRST_NAME LAST NAME COURSE NO DESCRIPTION SECTION NO 
Jeff Runyan 10 Technology Concepts 2 
Dawn Dennis 25 Intro to Programming 4 
May Jodoin 25 Intro to Programming 4 
Jim Joas 25 Intro to Programing 4 
Arun Griffen 25 Intro to Programming 4 
Alfred Hutheesing 25 Intro to Programming 4 
Lula Oates 100 Hands-On Windows 1 
Regina Bose 100 Hands-On Windows 1 
Јеппу Goldsmith 100 Hands-On Windows 1 
Roger Snow 100 Hands-On Windows 1 
Rommel Frost 100 Напаѕ-Оп Windows 1 
Debra Boyce 100 Hands-On Windows 1 
Janet Jung 120 Intro to Java Programming = 
John Smith 124 Advanced Java Programming 1 
Сһаг1ев Саго 124 Advanced Java Programming 1 
Sharon Thompson 124 Advanced Java Programming 1 
Evan Fielding 124 Advanced Java Programming 1 
Ronald Tangaribuan 124 Advanced Java Programming 1 
N Kuehn 146 Java for C/C++ Programmers 2 
Derrick Baltazar 146 Java for C/C++ Programmers 2 
Angela Torres 240 Intro to the Basic Language 2 


最 后 一 种 方法 是 既 不 传 入 学 生 ID， 也 不 传 入 教师 ID: 


SQL> exec course pkg.get course list (NULL, NULL, :course су); 
PL/SQL procedure successfully completed. 


SQL> print course су 


FIRST NAME LAST NAME С DESCRIPTION S 


Please choose a student- instructor combination 


下 一 个 示例 创建 男 一 个 名 为 student info pkg 的 包 ， 它 具有 名 为 get student info 的 一 个 过 程 。get student info 包 将 有 三 个 参数 : student іа, 
一 个 被 称 为 p_choice 的 数字 和 一 个 弱 游 标 变 量 。p_choice 参 数 表 示 有 关 学 生 的 哪些 信息 将 被 传递 。 如 果 它 是 1， 则 此 过 程 将 从 STUDENT 表 返回 关于 该 学 
生 的 信息 。 如 果 它 是 2， 则 此 过 程 将 列 出 所 有 该 学 生 就 读 的 课程 ， 以 及 与 传递 的 STUDENT _ID 的 学 生 就 读 于 同一 课 班 的 学 生 的 姓名 。 如 果 它 是 3， 则 此 过 
程 将 返回 该 学 生 的 教师 ， 以 及 该 学 生 就 读 的 课程 信息 。 


示例 ch21_11.sq| 


CREATE OR REPLACE PACKAGE student info pkg AS 
ТҮРЕ student details IS КЕЕ CURSOR; 
PROCEDURE get _ student info 

(р student іа NUMBER , 

p_choice NUMBER , 

details_cv IN OUT student_details); 
END student info pkg; 


/ 
CREATE OR REPLACE PACKAGE BODY student info pkg AS 
PROCEDURE дес student _ info 
(p student id NUMBER , 


p_choice NUMBER , 
details_cv IN OUT student details) 
LS 
BEGIN 


IF p choice = 1 THEN 
OPEN details_cv FOR 
SELECT s.first_name first пате, 


s.last пате last_name, 
s.street address address, 
Аан ва азбу; 
2.вісасе state, 
Ze zip 


FROM student s, zipcode z 
WHERE s.student id = p student id 
AND т.938 2 Втр: 
ELSIF р choice = 2 THEN 
ОРЕМ details су FOR 
SELECT C.course по course по, 
с.дезѕсгірііоп description, 
se.section_ по ѕесііоп по, 
s.first_name first_name, 
s.last name last пате 
FROM student s, section se, 
сочгѕе с, епго1ітепі е 


course с, епго1ітепі е 
WHERE в^ве.соцгве по = с.соцгве по 
AND e.student_id = s.student іа 
AND е.зесёіоп id = se.section іа 
AND se.section іа іп (SELECT e.section id 
FROM student s, 
enrollment e 
WHERE s.student id 
р student іа 
AND s.student іа 
e.student 1а) 


ORDER BY Cc.course по; 
ELSIF p choice = 3 THEN 
OPEN details cv FOR 


SELECT 1.first пате first name, 
1.last пате last name, 
с.соцгѕе по сочгѕе по, 


с.аеѕсгірёіоп description, 
ѕе.ѕвессіоп по зесііоп по 
FROM instructor 1, tudent а, 
section se, Course c, enrollment е 
WHERE s.student іа = р student id 


AND і.іпѕсгиссог іа = ѕе.іпѕігисіог іа 
AND se .course_ по = C.course_ по 
AND e.student id = S8.Student іа 
AND e.section_id = ве.весёіоп 1а 
ORDER BY Cc.course по, ве.весііоп по; 
END IF; 


END get student info; 


END student info pkg; 


要 执行 get_student info 过 程 ， 你 必须 首先 创建 一 个 会 话 变 量 : 


VARIABLE student cv REF CURSOR 


然后 用 适当 的 值 执行 此 过 程 : 


SQL> execute student info pkg.GET STUDENT _ INFO 
(102, 1, satudent: су) ; 


最 后 显示 结果 : 


PL/SQL procedure successfully completed. 


SQL> print student су 
FIRST LAST NAM ADDRESS GELS ST ZIP 


Fred Crocitto 101-09 120th St. Richmond Hill NY 11419 


SQL> execute student _ info pkg.GET STUDENT ІМЕО 
(202. 2; BEE су); 
PL/SQL procedure successfully completed. 


SQL> print student cv 
COURSE NO DESCRIPTION SECTION NO FIRST_NAME LAST МАМЕ 


э ЖЕН кин я 
25 ІпЁго 
ША, {кле 
25 LC 
29 ЕЕН 
АРУ ІПЕТО 
ДР ТЕТО 
25 ІпЁго 
же ПЕСО 
ае ТКО 
дэ ЕТТ 
ЭЕ ДКО 
25 Intro 
йз  InCroO 
26: h n h ө o 
ше LCD 
2S TICIO 
a LCTO 


CO 
со 
БО 
со 
CO 
CO 
to 
DO 
со 
со 
to 
to 
to 
CO 
to 
to 
to 
е, 


Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 


Fred 
Judy 
Jenny 
Barbara 
Jeffrey 
George 
Fred 
Hazel 
James 
Regina 
Arlyne 
Thomas 
Sylvia 
M. 
Edgar 
Bessie 
Walter 
Lorrane 


(л (л (л (л (л (л (л (л (л (л їл (л Мм М МЮ Мм М М 


SQL> execute student info pkg.GET STUDENT INFO 


(214, 


3, 


CGrocittö 
Sethi 
Goldsmith 
Robichaud 
Сіёгоп 
Коска 
Crogitrtro 
Lasseter 
Miller 
Gates 
Sheppard 
Edwards 
Perrin 
Diokno 
Moffat 
Heedles 
Boremmann 
Velasco 


早期 版 本 的 Oracle 仅 提供 REF CURSOR 的 使 用 ， 其 中 首先 会 用 特定 的 记录 集 创建 REF CURSOR 类 型 ， 


:Student су); 
PL/SQL procedure successfully completed. 


SQL> print student су 


FIRST NAME LAST NAME COURSE NO DESCRIPTION SECTION NO 
Marilyn Frantzen 120 Intro to Java Programming 1 
Fernand Hanks 122 Intermediate Java Programming 5 
Сагу Регіе2 t30 ТИГҮӨ Сог TIX 2 
Магі1уп Frantzen 145 Internet Protocols 1 


然后 必须 创建 此 类 型 的 另 一 个 变量 以 在 存储 过 


程 和 遂 数 中 利用 REF CURSOR, Oracle 的 后 续 版 本 把 行为 类 似 的 SYS_REFCURSOR (类 型 为 REF CURSOR) 作为 一 个 预定 义 的 类 型 推出 了 。 
SYS_REFCURSOR 是 弱 类 型 的 ， 这 意味 着 具有 不 同 FROM 或 WHERE 子 句 ， 以 及 不 同 数量 和 类 型 的 列 的 任何 SELECT 语 句 都 可 以 使 用 它 。 在 第 24 章 中 的 示 
例 涵 芋 了 DBMS_SQL 一 节 中 包括 一 个 使 用 SYS_REFCURSOR 而 不 是 REF CURSOR 的 语法 示例 。 


使 用 游标 变量 的 规则 


- 你 不 能 对 另 一 台 服 务 器 上 的 远程 子 程序 使 用 游标 变量 ， 因 此 你 就 不 能 把 游标 变量 传递 给 一 个 通过 数据 库 链接 调用 的 过 程 。 
- 在 处 理 一 个 游标 变量 时 不 要 将 FOR UPDATE 与 OPEN FOR 放 在 一 起 使 用 。 

- 不 能 使 用 比较 运算 符 来 测试 游标 变量 的 相等 、 不 相等 或 无 效 。 
` 不 能 为 游标 变量 分 配 null 值 。 

- 在 CREATE TABLE 或 VIEW 语 旬 中 不 能 使 用 REF CURSOR 类 型 ， 


因为 它 没有 相应 的 数据 库 列 数据 类 型 。 


` 使 用 游标 变量 的 存储 过 程 仅 可 以 作为 一 个 查询 块 的 数据 源 ， 它 不 能 被 用 于 一 个 DML 块 的 数据 源 。 使 用 REF CURSOR 非 常 适 合 那些 只 依赖 于 SQL 语 


多 的 变化 ， 而 不 是 PL/SQL 语 名 的 变化 的 查询 。 


你 不 能 在 关联 数组 、 庶 套 表 或 变 长 数组 中 存储 游标 变量 。 


` 如 果 你 把 一 个 宿主 游标 变量 传递 给 PL/SQL， 那 么 你 不 能 在 服务 器 端 从 中 获取 ， 除 非 你 也 在 同一 服务 器 调用 中 打开 它 。 


21.3 30293: 扩展 包 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 用 其 他 程序 扩展 包 。 


在 这 个 实验 中 ， 你 将 利用 此 前 介绍 的 概念 来 扩展 已 经 创建 的 包 和 创建 新 的 包 。 只 有 通过 大 量 的 练习 ， 你 才能 更 加 舒适 地 利用 PL/SQL 编 程 。 在 编写 
PL/SQL 人 代码 时 ,仔细 考 虑 业务 需求 的 所 有 方面 是 非常 重要 的 。 一 个 好 的 经 验 法 则 是 ， 超 前 思考 并 用 可 重用 组 件 来 编写 代码 ， 以 便 该 PL/SQL 代 码 能 够 很 容 
易 地 扩展 和 维护 。 


用 其 他 程序 扩展 包 


本 节 通 过 建立 一 个 复杂 的 市 有 各 种 复杂 函数 和 程序 的 包 ， 提 供 了 编写 包 的 更 多 示例 。 逐 步 地 建立 一 个 大 包 ， 并 测试 你 创建 的 每 个 部 分 ， 以 确保 其 工 
作 正 常 ， 并 且 不 包含 任何 语法 错误 ， 始 终 是 最 佳 的 做 法。 下 面 的 一 组 示例 告诉 你 如 何 逐 步 地 建立 一 个 包 。 


1. 创 建 Manage Grades 包 规范 


下 面 的 脚本 创建 一 个 名 为 manage_grades 的 新 包 规 范 。 该 包 将 执行 大 量 的 成 绩 计 算 ， 并 将 需要 两 个 包 游 标 。 第 一 步 是 建立 一 个 称 为 c_ grade_Type 的 
游标 ， 它 具有 一 个 IN 参数 课 班 ID， 并 为 一 个 给 定 的 课 班 提供 所 有 成 绩 类 型 的 清单 ， 这 一 信息 是 计算 此 课 班 学 生 的 成 绩 所 需要 的 。 此 游标 返回 的 项 目 将 
是 : @@ 成 绩 类 型 代码 ; @ 本 课 班 的 该 种 成 绩 类 型 的 数量 ; @@ 最 终 成 绩 的 百分比 ; @@ 是 否 去 抒 最 低 值 的 指示 符 (标记 ) 。 


建立 一 个 包 游 标 时 ， 你 始终 应 该 做 的 第 一 件 事 就 是 编写 SELECT 语 句 ， 并 在 一 个 已 知 的 结果 集 上 对 其 进行 测试 。 换 句 话说 ， 你 为 变量 硬 编码 一 个 值 ， 
例如 student_id 和 section_id， 然 后 用 相应 的 变量 代 蔡 硬 编码 值 。 你 可 以 这 种 方式 继续 逐步 地 构建 包 。 尝 试用 最 小 的 可 测试 代码 单元 来 建立 包 的 每 个 组 
件 。 一 旦 代码 单元 返回 正确 的 结果 ， 且 语法 没有 错误 ， 你 束 可 以 接着 建立 下 一 个 单元 。 


下 面 的 示例 中 只 包含 SQL SELECT 语句 。 你 也 应 当先 编写 SQL SELECT 语 句 ， 然 后 用 已 知 值 来 测试 已 。 在 这 个 示例 中 ，student id 是 145， 而 


section id 是 106。 
示例 ch21 12.541 


SELECT GRADE ТҮРЕ CODE, 
NUMBER PER SECTION, 
PERCENT OF FINAL GRADE, 

DROP _ LOWEST 
FROM grade Type weight 
WHERE section іа = 106 
AND section id IN (SELECT section id 
FROM grade 
WHERE student id = 145) 


现在 把 这 个 SELECT 语句 放 入 包 中 : 


示例 ch21 13.59 


CREATE OR REPLACE PACKAGE MANAGE GRADES AS 
-- 对 于 一 个 给 定 课 班 ， 对 全 部 成 绩 类 型 遍历 循环 的 游标 
CURSOR с grade type 
(рс section іа section.section id%TYPE, 
PC student Ір student.student id%TYPE) 
15 
SELECT GRADE ТҮРЕ CODE, 
NUMBER РЕК SECTION, 
PERCENT OF FINAL GRADE, 
DROP LOWEST 
FROM grade Type weight 
WHERE section id = рс section іа 
AND section_id IN (SELECT section id 
FROM grade 
WHERE student id = pc student id); 
END MANAGE GRADES; 


2. 创 建 c_grade 游 标 


下 面 的 示例 演示 了 通过 添加 名 为 c grades 的 课 班 游标 来 扩展 manage_grades 包 。 此 游标 将 接收 一 个 成 绩 类 型 代码 、 学 生 ID， 以 及 课 班 ID， 并 返回 此 
学 生 在 该 课 班 的 所 有 属于 该 成 绩 类 型 的 成 绩 。 例 如 ， 如 果 Alice 参 加 了 Java 导 论 课 班 ， 就 可 以 用 这 个 游标 来 收集 她 的 所 有 测验 成 绩 。 


示例 ch21 14.59 


СКЕАТЕ ОК REPLACE РАСКАСЕ МАМАСЕ GRADES AS 
-- 遍历 一 个 给 定 课 班 的 全 部 成 绩 类 型 的 游标 
CURSOR с grade type 
(рс section іа section.section 14%ТҮРЕ, 
PC student Ір student.student 14%ТҮРЕ) 


IS 
SELECT GRADE TYPE CODE, 

NUMBER PER SECTION, 

PERCENT OF FINAL GRADE, 

DROP LOWEST 
FROM grade Type weight 
WHERE section іа = рс section іа 

AND section_id IN (SELECT section_id 
FROM grade 
WHERE student іа = рс student іа); 
-- ж МЕ ЖЕР АДЕ З E AE Ж ЭД Їй ЖЭ NEAT 
CURSOR с grades 
(p_grade type code 
grade Туре weight .grade type сойе%ТҮРЕ, 
рс student іа student .student id%TYPE, 
рс section іа section.section id%TYPE) 15 
SELECT građe type соде,гайе code оссиггепсе, 
numeric grade 
FROM grade 
WHERE student іа = рс student іа 
AND section 1а = рс _ section id 
AND grade суре code = р grade type code; 
END MANAGE GRADES; 


3. 创 建国 数 final grade 


下 一 步骤 是 将 一 个 称 为 final_grade 的 函数 添加 到 此 包 规 范 中 。 这 个 函数 有 两 个 IN 参数 : 学 生 ID 和 课 班 ID。 它 将 返回 一 个 数字 一 一 该 学 生 在 这 个 课 班 
中 的 最 终 成 绩 ， 加 上 一 个 退出 代码 。 添 加 退出 代码 ， 而 不 是 引 友 异 弟 是 因为 这 种 方法 使 程序 更 加 灵活 ， 人 允许 调用 程序 根据 所 产生 的 特定 错误 代码 选择 如 


何 进 行 处 理 。 
示例 ch21 15.59 


CREATE ОК REPLACE PACKAGE MANAGE GRADES AS 
-- W — “Е ЖЭН 8р R Ж 0 Ву ЎР 
CURSOR с grade type 
(рс section іа section.section 14%ТҮРЕ, 
РС student Ір student.student id%TYPE) 


IS 
SELECT GRADE TYPE CODE, 
NUMBER PER SECTION, 
PERCENT ОЕ FINAL GRADE, 
DROP LOWEST 
FROM grade Type weight 
WHERE section іа = pc section іа 
AND section id IN (SELECT section id 
FROM grade 
WHERE student_id = рс student_id); 


-- 饥 历 一 个 给 定 课 班 中 一 个 给 定 学 生 的 全 部 成 绩 循环 的 游标 
CURSOR с grades 
(р grade type code 
grade Type weight.grade type code%TYPE, 
рс student іа student . Student id%TYPE, 
pc_section id section.section 14%ТҮРЕ) IS 
SELECT grade type code,grade code occurrence, 
numeric grade 
FROM grade 
WHERE student id = pc student id 
AND section іа = рс section іа 
AND grade type code = p grade type содае; 


-- 计算 学 生 在 一 个 课 班 的 最 终 成 绩 的 函数 
procedure final grade 
(Р student іа ІМ student.student id%type, 
Р section іа ІМ section.section id%TYPE, 
P Final grade OUT enrollment .final grade%TYPE, 
P Exit Code OUT CHAR) ; 
END MANAGE GRADES; 


下 一 步骤 是 将 此 函数 添加 到 包 体 。 为 了 执行 这 个 计算 ， 则 需要 多 个 变量 在 计算 的 执行 过 程 中 保存 值 。 


这 个 练习 也 是 学 生 表 之 间 数 据 关系 的 一 个 很 好 的 回顾 。 在 你 进入 下 一 步 阅 读 前 ， 请 先 阅读 附录 B， 其 中 有 STUDENT 模 式 的 实体 关系 图 (ERD) 和 表 
МАЈА, 


在 计算 最 终 成 绩 时 ， 你 必须 记 住 很 多 东西 ， 如 下 所 示 : 

` 每 个 学 生 都 报名 参加 了 一 个 课程 ， 而 这 个 信息 被 收集 在 入 学 表 中 。 

此 表 只 为 参加 一 个 课 班 的 每 个 学 生 保 存 最 终 成 绩 。 

. 每 个 课 班 都 有 自己 的 一 套 评 估 要 素来 计算 最 终 成 绩 。 

` 这 些 要 素 的 所 有 成 绩 〈 其 已 被 输入 ， 这 意味 着 在 数据 库 中 没有 NULL 值 ) 都 在 成 绩 表 中 。 

. 每 个 成 绩 都 有 一 个 成 绩 类 型 代码 。 这 些 代 码 代 表 成 绩 类 型 。 例 如 ， 成 绩 类 型 QZ 代表 测验 。 每 个 GRADE_TYPE 的 描述 都 来 自 GRADE_TYPE 表 。 


· GRADE_TYPE_WEIGHT 表 保存 该 计 草 的 关键 信息 。 一 个 给 定 课 班 中 利用 到 的 每 个 成 绩 类 型 在 此 表 中 都 有 一 个 条 目 〈 对 于 每 个 课 班 ， 并 不 是 所 有 
成 绩 类 型 都 存在 ) 。 


- 在 GRADE_TYPE_ WEIGHT 表 中 ，NUMBER_PER_SECTION 列 列 出 了 为 计算 一 个 特定 学 生 在 一 个 特定 课程 的 特定 课 班 的 最 终 成 绩 ， 某 一 成 绩 类 型 


应 被 输入 多 少 次 。 这 可 以 帮助 你 确定 ， 对 于 一 个 给 定 成 绩 类 型 ， 是 否 所 有 的 成 绩 都 已 输入 ， 以 及 是 否 已 为 茶 一 成 绩 类 型 输入 了 过 多 的 成 绩 。 


‚ 你 必须 考虑 drop_lowest 标 志 。 该 drop_lowest 标 志 可 容纳 Y 或 N 的 值 。 如 果 去 挤 最 低 值 标志 是 Y[Y= 是 ，N= 否 ]， 则 计算 最 终 成 绩 时 必须 从 该 成 绩 类 型 


、 RRE 


中 去 掉 最 低 成 绩 。PERCENT_OF_FINAL_GRADE 列 引用 一 个 给 定 成 绩 类 型 的 所 有 成 绩 。 如 果 家 庭 作 业 要 素 占 最 终 成 绩 的 20%， 并 分 配 有 五 个 家 庭 作 业 和 


drop_lowest 标 志 ， 那 么 每 个 剩余 的 家 庭 作业 都 占 5%。 在 计算 最 终 成 绩 时 ， 需 要 将 PERCENT_OF_FINAI, GRADE 除 以 NUMBER_PER_SECTION (注意 ， 


如 果 drop_lowest=Y， 那 么 要 除 以 NUMBER_PER_SECTION-1 ) 。 


退出 代码 应 该 被 定义 为 以 下 五 个 值 中 的 一 个 : 

S= 成 功 (Success) ， 最 终 成 绩 已 经 计算 完成 。 如 果 成 绩 不 能 计算 ， 那 么 最 终 成 绩 将 是 NULL， 而 退出 代码 将 是 其 他 四 个 选项 之 一 。 
1= 不 完整 (Incomplete) ， 未 输入 这 名 学 生 在 本 课 班 所 有 必需 的 成 绩 。 

T= 对 于 这 个 学 生存 在 太 (Too) 多 的 成 绩 。 例 如 ， 应 该 有 只 有 四 个 家 庭 作 业 成 绩 ， 但 是 却 有 六 个 成 绩 。 

N= 这 个 学 生 在 本 课 班 没有 (No) 成 绩 输入 。 


E= 有 一 个 通用 计算 错误 (异常 When_others) 。 这 种 退出 代码 允许 程序 在 它 可 以 的 时 候 计算 最 终 成 绩 ， 如 果 它 们 中 的 一 些 莫名 其 妙 地 引 友 Oracle 错 
误 ， 调 用 程序 仍然 可 以 继续 使 用 已 计算 出 的 成 绩 。 


要 计算 最 终 成 绩 ， 你 将 需要 一 些 变量 在 计算 期 间 保 存 临 时 值 。 最 初 的 代码 将 为 程序 final_grade 创 建 所 有 变量 ,但 随后 就 只 在 主 块 保留 语句 NULL;， 
这 使 你 可 以 编写 程序 ， 并 逐步 地 检查 所 有 变量 声明 的 语法 。 


student_id、section_id 和 grade_type_code 值 将 从 程序 的 一 个 部 分 转移 到 另 一 部 分 ， 这 就 是 为 什么 你 要 对 它们 中 的 每 个 都 创建 变量 的 原因 。 成 绩 的 
每 个 实例 都 将 被 计算 ， 以 确定 它 所 表示 的 最 终 成 绩 的 比例 。 在 处 理 每 个 单独 的 成 绩 时 需要 一 个 计数 器 ， 以 确保 对 于 给 定 的 成 绩 有 足够 的 成 绩 数 量 。 最 低 
成 绩 的 变量 保存 在 此 期 间 的 每 个 考试 成 绩 ， 看 它 是 否 是 最 低 的 。 最 后 ， 一 旦 对 于 给 定 的 成 绩 类 型 ,最低 成 绩 是 已 知 的 ， 那 么 就 可 以 将 它 从 最 终 成 绩 中 移 
除 。 此 外 ， 还 有 两 个 变量 被 用 作 行 计数 器 来 确定 游标 是 否 被 打开 。 


下 面 的 示例 演示 了 存根 格式 的 包 体 ， 也 就 是 说 ， 本 示例 包括 了 所 有 必要 的 变量 ,但 没有 写 入 实际 的 处 理 代码 。 在 编写 包 体 时 使 用 此 步骤 开始 的 原因 
是 为 了 确保 所 有 的 语法 都 是 正确 的 。 一 旦 这 个 存根 的 编译 没有 错误 ， 你 束 可 以 编写 包 体 的 代码 的 其 余部 分 。 


示例 ch21_16.sql 


CREATE OR REPLACE PACKAGE BODY MANAGE GRADES AS 
Procedure final grade 
(Р Student іа ІМ student.student id%type, 
Р section іа ІМ section.section id%TYPE, 
Р Final grade OUT enrollment .final grade%®%TYPE, 
P Exit Code OUT CHAR) 


IS 
у student іа student . StUQent іатТҮРЕ; 
у Section іа ѕесііоп.ѕессіоп 14%ТҮРЕ; 
v grade type code grade _ type welght .grade type сойе$ТҮРЕ; 
v grade percent NUMBER ; 
у final grade NUMBER ; 
у grade count МОМВЕК; 
у lowest grade NUMBER ; 
v exit code СНАК (1) := 1841} 
У no rowsl СНАК (1) w= TN"; 
у по rows2 СНАРВ (1) ;= 'N'; 
е по grade ЕХСЕРТІОМ; 
BEGIN 
NULL; 
END; 


END MANAGE GRADES; 


完整 的 包 体 在 下 一 个 示例 中 提供 。 我 们 已 在 里 面 放置 了 注释 来 解释 代码 在 每 个 步骤 中 做 了 什么 。 在 代码 中 包含 注释 是 一 个 好 主意 ， 以 便 帮助 以 后 需 
要 修改 此 包 的 人 。 


示例 ch21 17.59 


CREATE OR REPLACE PACKAGE BODY MANAGE GRADES AS 
Procedure final grade 
(P student іа ІМ student .student 1dg$type， 
P section іа ІМ section.section 14%ТҮРЕ, 
P Final _ grade OUT enrollment .final дгайе%ТҮРЕ, 
P Exit _ Code OUT CHAR) 


IS 
v_student_id student .student id%TYPE; 
у section id ѕесііоп.ѕесііоп ій$ТҮРЕ; 
у grade type соде grade type weight .grade type сойе%ТҮРЕ; 
у grade percent NUMBER; 
у final grade NUMBER ; 
у grade count NUMBER ; 
v_lowest_grade NUMBER; 
v_exit_code CHAR (1) := '5'; 
у no rowsl CHAR(1) := 'N'; 
у по rows2 CHAR (1) := '№!; 
е по grade ЕХСЕРТІОМ; 
ВЕСІМ 


у весііоп іа := р section іа; 
у student id := р student 14; 


- - 开始 本 课 班 的 成 绩 关 型 循环 
FOR р grade іп с grade уре (у ѕесііоп іа, у _ Student іа) 
LOOP 
-- 因为 游标 是 打开 的 ， 所 以 它 有 一 个 结果 集 ; 改变 指示 符 
у по rowsl := 'Ү'; 
-- 要 保存 每 个 课 班 的 成 绩 数量 ， 在 详细 游标 循环 之 前 重 置 为 0 
у дгайе count := 0; 
у дгаде type code := г grade.GRADE ТҮРЕ CODE; 
-- 用 于 保存 最 低 成 绩 的 变量 


-- 500 不 会 是 最 低 成 绩 
у Іомеѕі grade := 500; 
-- 确定 十 什么 乘 以 一 个 成 绩 来 计算 最 终 成 绩 ， 必 须 考虑 去 掉 最 低 成 绩 的 指示 符 是 否 是 了 
SELECT (гр grade.percent of Ғіпа1 grade / 
DECODE (р grade.drop lowest, 'Ү', 
(г grade.number рег section - 1), 
г grade.number рег section 
БЕ 10.02 
INTO Уу гае percent 
FROM dual; 
-- 为 此 课 班 中 的 一 个 学 生 的 详细 成 绩 打 开 游 标 
FOR at add іп с grades(v grade type code, 
у student іа, у section іа) LOOP 
-- 因为 游标 是 打开 的 ， 所 以 它 有 一 个 结果 集 ; 改变 指示 符 
у по rows2 := 'Ү'; 
у grade count := у grade count + 1; 
-- 处 理 对 于 此 课 班 的 一 个 给 定 的 成 绩 类 型 ， 条 目 数量 比 应 该 有 的 条 目 更 多 的 情况 
ІЁ у grade count > г grade.number рег section THEN 
у exit code := 'T'; 
raise е no grade; 
END ТЕ; 
如 果 去 掉 最 低 成 绩 标记 为 Y， 确 定 要 去 掉 的 最 低 成 绩 
IF к дгаде.ӣгор lowest = 'Ү' THEN 
IF пу1 (у lowest grade, 0) >= 
г detail.numeric grade 


ТНЕМ 
у lowest grade := к detail.numeric grade; 
END ТЕ; 
END ТЕ; 
-- 在 详细 循环 中 用 当前 成 绩 的 百分比 来 增加 最 终 成 绩 
у flnal grade := пу1 (у final grade, 0) + 
(r detail .numeric grade * у grade Percent 1) ; 
END LOOP; 
-- 一 旦 详细 循环 结束 ， 如 果 对 于 一 个 给 吓 的 学 生 及 给 定 的 成 绩 类 型 和 课 班 ， 
-- 成 绩 的 数目 小 于 所 需 量 ， 则 产生 异常 
ТЕ v grade count < r grade.NUMBER PER SECTION THEN 
v exit code := 'I'; 
raise e no grade; 
END IF; 
-- 如 果 去 掉 最 低 成 绩 的 标志 为 Y， 那 么 你 需要 将 最 低 成 绩 从 最 终 成 绩 中 去 掉 ， 除 非 对 
-- 所 有 成 绩 都 进行 了 检查 ， 否 则 ， 要 去 挥 哪个 最 低 成 绩 在 它 被 加 入 时 是 不 知道 的 
IF үр grade.drop lowest = 'Y' THEN 
у Ғіпа1 grade := пу1 (у final grade, 0) - 
(у lowest grade * v grade регсепї); 


END ТЕ; 
END LOOP; 
-- 如 果 任 何 一 个 游标 没有 数据 行 ， 那 么 就 出 错 了 


IF у по rowsl = 'N' ОК у по rows2 = 'N' THEN 


ү exit сое := 'N'; 
raise е по grade; 
END ТЕ; 
Р final grade := у final grade; 


Р exit code у exit code; 
EXCEPTION 
ИНЕМ е no grade THEN 
Р final grade := núll; 
Р exit code у exit code; 
WHEN OTHERS THEN 
Р final grade := null; 
P exit_code := 'Е'; 
END final grade; 
END MANAGE GRADES; 


下 面 的 示例 是 一 个 测试 final _ grade 过 程 的 匿名 块 。 此 块 要 求 提供 student id 和 section id， 并 返回 最 终 成 绩 和 退出 代码 。 


在 编写 匿名 块 来 运行 代码 之 前 ， 审 查 过 程 参 数 的 顺序 往往 是 一 个 好 主意 。 在 SQL*PlIus 中 ， 这 可 以 通过 对 一 个 过 程 运行 describe (描述 ) 命令 来 实 
IL, 


SQL> desc manage _ grades 
PROCEDURE FINAL GRADE 


Argument Name Type In/Out Default? 
Р STUDENT ID NUMBER (8) IN 

P SECTION ID NUMBER (8) IN 

Р FINAL GRADE NUMBER (3) OUT 

Р ЕХІТ CODE CHAR OUT 


在 SQL Developer 中 ， 你 可 以 展开 package ( 包 ) 节操 ， 将 光标 悬 停 在 此 过 程 上 ， 以 获取 更 多 的 详细 信息 。 通 过 这 种 方法 ， 你 既 可 以 看 到 在 包头 中 
被 声明 的 内 容 ， 又 可 以 看 到 在 包 体 中 被 编译 的 内 容 ， 如 图 21-1 所 示 。 


ЕЙ ]Раскаде5 
_ 5-@ MANAGE_GRADES 
”日 -大 MANAGE GRADES Воду 
{] final_grade 
В с огайе type 
-PA с grades 
J final -grade 


Б ә ГЕ | DELT: 


图 21-1 SQL Developet 中 所 呈现 的 Manage_Gftades 包 
下 面 是 可 用 于 运行 包 manage_grades 的 匿名 块 的 示例 。 
示例 ch21 18.59 


SET SERVEROUTPUT ON 


DECLARE 
у student іа student.student id%TYPE := &sv student іа; 
у Section іа section.section id%TYPE := &SV section id; 
у final grade enrollment .final grade%TYPE,; 
у exlit code CHAR ; 

BEGIN 


manage дгайеѕ.Ғіпа1 grade (у student id, у section id, 
у final grade, у exit _ code); 


DBMS OUTPUT .PUT LINE ('The Final Grade is '||v final grade); 
DBMS OUTPUT.PUT LINE ('The Exit Code is '||v exit code); 
END; 


如 果 用 值 为 102 的 student_ id 和 值 为 89 的 section_id 来 运行 此 脚本 ， 你 会 在 SQL*Plus 中 得 到 以 下 结果 。 在 SQL Оемеіорегті{76, ВАМИ 
102 和 89 的 变量 ， 你 会 看 到 完整 的 代码 。 匿 名 块 完成 后 ， 两 种 输出 出 现 的 最 终 行 是 相同 的 。 


Enter Value for sv student іа: 102 
old 2: у student іа student.student id%TYPE : 


&sv student іа; 


пем 2: v Student іа student.student id%TYPE := 102; 

Enter value for sv section 1а: 86 

old 3: v section іа section.section id%TYPE := &sv section id; 
new 3: v section іа section.section id%TYPE := 86; 


The Final Grade is 89 
The Exit Code is S 
PL/SQL procedure successfully completed. 


下 一 步骤 是 将 一 个 名 为 median grade 的 函数 添加 到 manage _grades 包 规范 中 ， 它 接受 一 个 课程 编号 (p_cource number) 、 一 个 课 班 编号 
(p_section_number) 和 一 个 成 绩 类 别 (р огаае type) ， 并 返回 一 个 work_grade.grade9%TYPE。 还 需要 添加 此 函数 将 使 用 的 游标 以 及 此 函数 将 需 


的 任何 类 型 。 


示例 ch21 19.59 


CREATE ОК REPLACE PACKAGE MANAGE GRADES AS 
-- 遍历 一 个 给 定 课 班 的 全 部 成 绩 类 型 的 游标 
CURSOR с grade type 
(рс section іа section.section id%TYPE, 
PC student Ір student.student id%TYPE) 


І5 
SELECT GRADE ТҮРЕ CODE, 
NUMBER PER SECTION, 


PERCENT OF FINAL GRADE, 
DROP LOWEST 
FROM grade Туре weight 
WHERE section id = pc section id 
AND section_id IN (SELECT section іа 
FROM grade 
WHERE student іа = рс student id); 
-- 饥 历 一 个 给 定 课 班 中 一 个 给 定 学 生 的 全 部 成 绩 循环 的 游标 
CURSOR с grades 
(р дгайе суре _ code 
grade Туре weight .grade суре сойе$ТҮРЕ, 
рс student іа student.student id%TYPE, 
рс section іа section.section id%TYPE) IS 
SELECT grade type code,grade code occurrence, 
numeric grade 
FROM grade 
WHERE student_id = pc student id 
AND section_id = рс _ section id 
AND grade type code = р grade type _ code ; 
-- 计算 学 生 在 一 个 课 班 中 的 最 终 成 绩 的 函数 
Procedure final grade 
(Р student іа ІМ student.student id%type, 
Р section іа ІМ section.section id%TYPE, 
Р Final grade OUT enrollment .final дгайе$ТҮРЕ, 
Р Exit Code OUT: CHAR) 


-- 计算 中 位 数 成 绩 的 函数 
FUNCTION median grade 
(p_course number section.course no%TYPE, 


р section number section.section no%TYPE, 
р grade type grade.grade type сойе$ТҮРЕ) 
RETURN grade.numeric дгайе$ТҮРЕ; 


CURSOR с work grade 
(p_course no section.course no%TYPE, 
p_section no section.section no%TYPE, 
p_grade суре code grade.grade type code%TYPE 


YIS 
SELECT distinct numeric _ grade 


FROM grade 
WHERE section іа = (SELECT section id 
FROM section 
WHERE course по= р course no 
AND section_no = p section по) 


AND grade type code = р дгайе type _ code 


ORDER BY numeric grade; 
ТҮРЕ t_grade_type IS TABLE OF с work grade%ROWTYPE 


INDEX BY BINARY INTEGER; 
t grade t grade type; 
END MANAGE GRADES; 


下 一 步骤 是 将 一 个 称 为 median_ grade 的 函数 添加 到 manage grades 包 体 ， 它 接受 一 个 课程 编号 (р cource number) 、 一 个 课 班 编号 
(p_section_number) 和 一 个 成 绩 类 别 (P_grade їуре) 。 这 个 函数 将 基于 这 三 个 组 成 部 分 返回 中 位 数 成 绩 (work_grade.grade%TYPE 数 据 类 型 ) 。 


例如 ， 有 人 可 能 使 用 此 函数 来 回答 下 面 这 个 问题 ，“Java 导 论 第 2 课 班 家 庭 作 业 的 中 位 数 成 绩 是 什么 ” ”真正 的 中 位 数 可 能 会 包含 两 个 值 。 因 为 该 六 


能 返回 一 个 值 ， 如 果 中 位 数 是 由 两 个 值 组 成 的 ， 则 该 函数 将 返回 两 者 的 平均 值 。 
示例 ch21 20.sql| 


CREATE OR REPLACE PACKAGE BODY MANAGE GRADES AS 
Procedure final grade 
(Р Student іа ІМ student.student id%type, 
P section іа ІМ section.section id%TYPE, 
Р Final grade OUT enrollment .final дгайе$ТҮРЕ, 
Р Exit Code OUT CHAR) 


IS 
v_student іа student . student _1d%TYPE; 
v_section id section.section 1d%TYPE; 
v_grade_type_ code grade _ type weight .grade type сойе$%ТҮРЕ; 
v grade percent NUMBER; 
v final grade NUMBER ; 
v_grade_count NUMBER; 
v_lowest_grade NUMBER; 
v exit code CHAR (1) := 0813 
- 下 两 个 变量 用 于 计算 一 个 游标 是 否 没有 结果 集 
у no rowsl CHAR (1) := 'N'; 
v_no rows2 CHAR (1) := 'N'; 
e no grade EXCEPTION; 
BEGIN 
v весііоп іа := р section іа; 
у student іа := р student іа; 
开始 此 课 班 的 成 绩 类 型 的 循环 
FOR r grade іп с grade typetv section 1а, у _ Student іа) 
LOOP 
-- 因为 游标 是 打开 的 ， 所 以 它 有 一 个 结果 集 ; 改变 指示 符 
у по rowsl := 'Ү!; 
要 保存 每 个 课 班 的 成 绩 数量 ， 在 详细 游标 循环 之 前 重 置 为 0 
у дгайе count := 0; 
у grade type code := r gracde .GRADE ТҮРЕ CODE; 
- 用 于 保存 最 低 成 绩 的 变量 


-- 500 不 会 是 最 低 成 绩 
у Lowest grade := 500; 
-- 确定 用 什么 乘 以 一 个 成 绩 来 计算 最 终 成 绩 ， 必 须 考 谋 去 掉 最 低 成 绩 的 指示 符 是 否 是 了 
SELECT (рг дгайе.регсепі of final grade / 
DECODE (үг grade.drop lowest, 'Ү', 
(г grade.number рег section - 1), 
г grade.number рег section 
К йы. 
ІМТО Уу агае percent 
FROM dual; 
-- 为 一 个 给 定 课 班 中 的 一 个 学 生 的 详细 成 绩 打 开 游 标 
Ee г detail іп с grades(v grade type code, 
у student іа, у section іа) LOOP 
-- 因为 游标 是 打开 的 ， 所 以 它 有 一 个 结果 集 ; 改变 指示 符 
у по rowsz2 := 'Ү!; 
у grade count := у grade count + 1; 
-- 处 理 对 于 此 课 班 的 一 个 给 吓 的 成 绩 类 型 ， 条 目 数 量 比 应 该 有 的 条 目 更 多 的 情况 
ІЁ v дгайе _ count > г grade.number рег section THEN 
у exit code := 'T'; 
raise e no grade; 
END IF; 


& 


只 


-- 如 果 去 掉 最 低 成 绩 标 记 为 Y， 确定 要 去 掉 的 最 低 成 绩 
IF г grade.drop lowest = 'Y' THEN 
IF nvl(v_lowest_grade, 0) >= 
г detail.numeric grade 


THEN 
v_lowest_grade := г detail.numeric_grade; 
END IF; 
END IF; 
-- 在 详细 循环 中 用 当前 成 绩 的 百分比 来 增加 最 终 成 绩 
у final grade := пу1(у_Ё1па1 grade, 0) + 
(г detail .numeric grade * у grade percent); 
END LOOP; 


-- 一 旦 详细 循环 结束 ， 如 果 对 于 一 个 给 定 的 学 生 及 给 定 的 成 绩 类 型 和 课 班 ， 
-- 成 绩 的 数目 小 于 所 需 量 ， 则 产生 异常 
ТЕ v grade count < r grade.NUMBER РЕК SECTION THEN 
v exit code := "І"; 
raise e no grade; 
END IF; 
-- 如 果 去 掉 最 低 成 绩 的 标志 为 Y， 那 么 你 需要 将 最 低 成 绩 从 最 终 成 绩 中 去 掉 ， 除 非 对 所 有 
-- 成 绩 都 进行 了 检查 ， 否 则 ， 要 去 掉 哪个 最 低 成 绩 在 它 被 加 入 时 是 不 知道 的 
IF r grade.drop lowest = 'Ү' THEN 
v _ final grade := пу1 (у final grade, 0) - 
(v_lowest_grade * v grade percent); 


END IF; 
END LOOP; 
-- 如 果 任 何 一 个 游标 没有 数据 行 ， 那 么 就 出 错 了 


ТЕ у по rowsl = 'N' ОК у по rows2 = 'N' THEN 


v exit code := 'N'; 
raise e no grade; 

END IF; 

P final grade := v final grade; 
P exit code := v exit code; 
EXCEPTION 


ИНЕМ е no grade THEN 
P final grade := пи11; 
Р exit code := ү exit code; 
WHEN OTHERS THEN 
Р final grade := null; 
Р exit code := 'E'; 
END final агаде; 


ЕОМСТІОМ median grade 
(p_course number section.course no%TYPE, 
р section number section.section no%TYPE, 
р grade type grade.grade type сойе%ТҮРЕ) 
RETURN grade.numeric grade%®%TYPE 
IS 
BEGIN 
FOR r work grade 
ІМ с work grade (р course number, р section number, р grade type) 
LOOP 
t grade (NVL(t grade .COUNT, 0) +1).numeric grade := г work grade .numeric grade; 
END LOOP; 
IF 七 grade .COUNT = 0 
ТНЕМ 
RETURN NULL; 
ELSE 
IF MOD(t grade.COUNT, 2) = 0 
THEN 
-- 如 果 有 偶数 个 作业 成 绩 。 则 找到 位 于 中 间 的 两 个 成 绩 ， 并 计算 它们 的 平均 数 
RETURN (t grade (+ _ grade.COUNT / 2) .numeric агае + 
с агаае ( (і grade.COUNT / 2) + 1) .numeric grade 


T 85 
ELSE 
-- 如 果 有 育 数 个 成 绩 。 返 回 位 于 中 间 的 成 绩 


RETURN 七 grade (TRUNC(t grade.COUNT / 2, 0) + 1) .numeric grade; 
END ТЕ; 
END ТЕ; 
EXCEPTION 
WHEN OTHERS 
THEN 
RETURN NULL; 
END median_grade; 
END MANAGE GRADES; 


下 面 的 示例 是 一 个 SELECT 语句 ， 它 使 用 函数 median_grade， 并 显示 课程 25 的 第 1 和 第 2 课 班 的 所有 成 绩 类 型 的 中 位 数 成 绩 。 
示例 ch21 21.sq| 


SELECT COURSE МО, 
COURSE NAME, 
SECTION NO, 
GRADE TYPE, 
manage grades.median grade 
(COURSE МО, 
SECTION NO, 
GRADE ТҮРЕ) 
median grade 


FROM 

(SELECT DISTINCT 
C.COURSE NO COURSE МО, 
CDESCRIPILLION COURSE МАМЕ, 
S.SECTION NO SECTION NO, 
G.GRADE TYPE CODE GRADE TYPE 

FROM SECTION S, COURSE C, ENROLLMENT E, GRADE G 

WHERE C.course по = s.course по 

AND  s.section_id = e.section іа 

AND  e.student_id = g.student іа 

AND с.соцгѕе по = 25 

AND 5ѕ.ѕесііоп по between 1 апа 2 

ORDER BY 1, 4, 3) grade source 


对 课程 25 的 第 1 和 第 2 课 班 的 所 有 成 绩 类 型 使 用 函数 median_grade 的 SELECT 语句 的 结果 如 下 : 


COURSE МО COURSE МАМЕ 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 


10 rows selected. 


21.4 ”实验 4: 包 的 实例 化 和 初始 化 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


. 在 初始 化 期 间 创 建 包 变量 。 


SECTION NO GRADE TYPE MEDIAN GRADE 


L ПЕЛ 98 
А ЕІ FL 
1 HM 76 
2 HM 83 
І МТ 86 
2 МТ 89 
1 РА эл, 
2 РА 97 
1, ЈА ga! 
2 02 78 
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加 载 到 数据 库 实例 的 SGA 中 ， 这 使 得 包 中 的 所 有 元 素 都 可 在 内 人 存 中 获得 


实例 化 过 程 是 指 将 友 生 以 下 步骤 : 


1) 包 的 公共 弟 量 将 被 赋予 一 个 初始 值 。 


2) 具有 声明 会 话 的 公共 变量 将 被 赋予 一 个 初始 值 。 


3) 如 果 在 包 体 中 有 初始 化 部 分 ， 它 就 会 被 执行 。 


在 初始 化 期 间 创 建 包 变量 


包 在 一 个 用 户 会 
了 为数， 这些 代码 不 再 重复 执行 。 


数据 类 型 ， 都 可 以 在 包 规 范 的 开头 被 声明 


。 任 何在 SGA 的 东西 都 将 比 数据 库 需要 查询 表 获 得 的 东西 能 更 加 快速 地 访问 。 


会 话 内 第 一 次 被 调用 时 ， 如 果 包 的 初始 化 部 分 中 存在 代码 ， 那 么 它们 将 被 执行 。 这 一 步 仅 执行 一 次 ， 如 果 用 尸 调用 该 包 的 其 他 过 程 或 
初始 化 部 分 包括 包 体 的 BEGIN 语 句 和 和 END 语句 之 间 的 一 切 内 容 。 


被 许多 过 程 和 阔 数 所 使 用 的 变量 、 游 标 ， 以 及 用 户 定 义 


一 次 ， 然 后 被 包 内 的 冰 数 和 过 程 使 用 ， 而 不 必 骨 次 声明 它们 。 


下 面 的 示例 在 student_api 包 中 创建 一 个 名 为 v_ current_date 的 包 全 局 变量 


示例 ch21 22.59 


CREATE OR REPLACE PACKAGE 
у current date DATE; 
PROCEDURE Discount Cost; 
FUNCTION new instructor id 


school арі as 


RETURN instructor.instructor 14%ТҮРЕ; 


END school api; 


下 面 的 脚本 添加 了 一 个 初始 化 部 分 将 系统 的 当前 日 期 赋予 变 


示例 ch21 23.59 


Œv current date。 此 变 


量 可 以 被 用 在 包 中 需要 使 用 当前 日 期 的 任何 过 程 中 。 


CREATE OR REPLACE РАСКАСЕ BODY School арі AS 
PROCEDURE discount cost 
І5 
CURSOR с group discount 
IS 
SELECT distinct s.course_no, c.description 
FROM section s, enrollment e, course c 
WHERE s.section id = e.section id 
GROUP BY s.course_no, c.description, 
e.section id, s.section id 
HAVING COUNT (*) >=8; 
BEGIN 
FOR г group discount ІМ с group _ discount 
LOOP 
UPDATE course 
ЗЕТ COSE = COSE F .95 
WHERE course_no = r group discount .course_no; 


DBMS OUTPUT .PUT LINE 
('A 5% discount has been given to' 
||r_group discount .course_no| |' 
'||r_group discount .description); 
END LOOP; 
END discount cost; 
FUNCTION new instructor id 
RETURN instructor .instructor id%TYPE 
IS 
v_new_instid instructor .instructor idbTYPE; 
BEGIN 
SELECT INSTRUCTOR Ір SEQ .NEXTVAL 
INTO v_new_instid 
FROM dual; 
RETURN у пем _instid; 
EXCEPTION 
WHEN OTHERS 
THEN 
DECLARE 


v_sqlerrm VARCHAR2 (250) := 
SUBSTR (SQLERRM, 1,250); 


BEGIN 
RAISE APPLICATION ERROR (-20003, 
'Error in instructor id: '||v_sqlerrm); 
END; 
END new instructor id; 
BEGIN 


SELECT trunc (sysdate, 'DD') 
INTO v current_date 
FROM dual; 
END school арі; 


21.5 “实验 5: SERIALLY REUSABLE 包 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


. 使 用 SERIALLY_REUSABIE 编 译 指示 。 


在 21.4 节 ， 你 学 到 了 如 何 把 加 载 对 象 到 3GA 作 为 实例 化 过 程 的 一 部 分 。 这 样 做 是 为 了 帮助 提高 包 的 性 能 。 但 是 ， 这 个 过 程 有 一 些 缺 点 。 


对 象 被 保持 


在 内 存 中 ， 并 且 可 能 产生 一 些 不 希望 的 副作用 和 和 错误， 例如， 如 果 一 个 包 游 标 保持 打开 。 上 此外， 如果 包 游标 很 大 ， 它 们 可 能 会 占用 大 量 的 会 话 内 存 ， 还 
不 能 释放 。 为 了 避免 这 些 副 作用 ， 你 可 以 使 用 SERIALLY_REUSABLE 编 译 指示 。 


使 用 SERIALLY_REUSABLE 编 译 指示 


如 果 你 想 利用 它 提 供 的 优势 ，SERIALLY REUSABLE 编译 指示 必须 同时 在 包 规 范 和 包 体 中 使 用 。 此 编译 指示 把 包 标 识 为 序列 化 可 重用 的 。 当 一 个 包 被 
这 样 标 记 时 ， 则 包 状 态 可 以 从 整个 会 话 降低 为 只 是 包 中 的 一 个 程序 调用 。 其 结果 与 初始 化 的 优点 相反 ， 这 意味 着 包 变 量 和 其 他 元 素 的 值 不 会 持久 。 调 用 
该 编译 指示 的 语法 是 在 包头 和 正文 中 的 1S 后 添加 以 下 行 : 


PRAGMA SERIALLY REUSABLE; 


在 使 用 序列 化 包 时 ， 要 牢记 以 下 几 氮 : 


. 序列 化 包 的 全 局 内 存 分 配 在 SGA， 而 不 是 在 用 户 全 局 区 (UGA) 。 这 种 方法 允许 包工 作 区 被 重用 。 每 次 包 被 重用 时 ， 其 包 级 变量 都 被 初始 化 为 它 
们 的 默认 值 或 NULL， 并 且 它 的 初始 化 部 分 被 重新 执行 。 


所 需 序 列 化 包 的 工作 区 的 最 大 数量 是 由 包 并 发 用 户 的 数目 确定 的 。SGA 增 加 的 内 存 使 用 是 通过 减少 UGA 或 程序 内 存 使 用 的 偏 移 量 得 到 的 。 此 外 ， 
如 果 数 据 库 需要 为 其 他 请 求 从 SGA 中 回收 内 存 ， 它 将 把 不 使 用 工作 区 淘汰 出 去 。 


. 如 果 某 个 包 不 是 SERIALLY_REUSABLE ， 那 么 其 包 状 态 被 存储 在 每 个 用 户 的 UGA 中 。 因 此 ，UGA 所 需 内 存量 与 用 户 的 数量 呈 线 性 增加 ， 从 而 限制 
其 可 扩展 性 。 包 状态 可 以 在 一 个 会 话 的 生存 期 中 持续 ， 锁 定 UGA 内 存 直到 会 话 结束 为 止 。 在 一 些 应 用 中 ， 比 如 Ortacle Office， 一 个 典型 的 会 话 会 持续 数 
Ko 


下 面 的 脚本 是 一 个 非常 简单 的 示例 ， 展 示 了 SERIALLY_REUSABLE 编 译 指示 是 如 何 操作 的 ( 若 想 要 更 清楚 地 展示 该 编译 指示 将 是 必要 的 ， 将 需要 一 个 
更 详细 的 示例 ) 。 


示例 ch21 24.59 


CREATE OR REPLACE PACKAGE show date 
IS 
PRAGMA SERIALLY REUSABLE; 
the date DATE := SYSDATE + 4; 
PROCEDURE display DATE; 
PROCEDURE set date; 
END show date; 
/ 
CREATE OR REPLACE PACKAGE BODY show date 
IS 
PRAGMA SERIALLY REUSABLE; 
PROCEDURE display DATE IS 
BEGIN 
DBMS OUTPUT .PUT LINE ('The date is ' || show date.the date); 
END; 
-- 初始 化 包 状 态 
PROCEDURE set date 15 
BEGIN 
show date.the date := sysdate; 
END; 
END show date; 


下 面 的 示例 演示 了 一 个 PL/SQL 块 来 执行 此 过 程 ， 并 说 明了 它 的 行为 是 怎样 的 。 


示例 ch21 25.59 


begin 
-- 初始 化 并 打印 包 变 量 
show date.display DATE; 
-- 改变 变量 the date 的 值 
show date.set date; 
-- 显示 变量 the_ date 的 新 值 
show date.display DATE; 
end; 


/ 
begin 


show date.display DATE; 
end; 


/ 


如 果 在 2014 年 7 月 27 日 运行 这 个 脚本 ， 它 的 结果 将 如 下 所 示 : 


anonymous block completed 
Тһе date is 31-JUL-14 


The date 15 27-JUL-14 


anonymous block completed 
The date is 31-JUL-14 


这 个 示例 显示 了 变量 the_date 的 值 如 何 变化 取决 于 它 是 如 何 被 调用 的 。 当 不 使 用 SERIALLY_REUSABLE 编 译 指示 时 ， 包 变量 的 值 一 直 保 持 在 内 存 中 ， 
并 且 不 改变 ， 直 到 程序 用 编程 方式 改变 它 为 止 。 在 这 个 示例 中 ， 由 于 包 使 用 SERIALLY_REUSABLE 编 译 指示 ， 其 行为 是 不 同 的 。 包 在 一 个 PL/SQL 块 中 第 
一 次 被 调用 时 ， 包 的 初始 化 部 分 被 调用 ， 并 且 变 量 the date 的 值 被 设置 为 系统 日 期 加 上 四 天 。 然 后 显示 该 值 。 接 着 ， 过 程 sShow date.set _ date 被 执行 ， 
而 the_date 的 值 复位 为 系统 日 期 。 因 为 已 使 用 SERIALLY_REUSABLE 编 译 指 示 ， 所 以 不 保留 the_date 的 值 。 下 一 次 包 在 第 二 个 PL/SQL 块 中 被 引用 
时 ，the_date 的 值 由 包 的 初始 化 部 分 复位 。 


但 是 ， 当 包 使 用 编译 指示 SERIALLY REUSABLE 时 ， 包 状态 保存 在 系统 全 局 区 的 工作 区 中 。 包 状态 将 仪 持 续 一 个 服务 器 调用 的 持续 时 间 。 一 旦 调用 完 
成 ， 工 作 区 就 会 被 刷新 。 如 果 另 一 个 服务 器 调用 引用 同一 个 包 ，Oracle 将 重新 实例 化 此 包 ， 这 意味 着 它 重 新 初始 化 包 。 包 中 变量 的 任何 改变 都 将 会 于 
失 。 一 旦 一 个 工作 单元 完成 后 ，Oracle 数 据 库 需要 处 理 以 下 任务 : 


` 关闭 所 有 打开 的 游标 。 
. 释放 一 些 不 可 重用 的 内 存 。 
` 把 包 实 例 化 返回 给 保留 此 包 的 可 重用 的 实例 池 。 


数据 库 触 发 器 、 独 立 的 SQL 语句 ， 以 及 任何 其 他 类 型 的 PLUSQL 子 程序 都 不 能 访问 一 个 利用 了 SERIALLY_REUSABLE 编 译 指示 的 包 。 


21.6 RA 


在 本 章 ， 我 们 学 习 了 如 何 创建 包 。 本 草 首先 研究 了 包 规 范 和 包 体 的 细节 。 还 讲述 了 如 何 调 用 存储 的 包 ， 并 探讨 了 各 类 包 组 件 ， 如 私有 对 象 和 游标 变 
量 。 然 后 介绍 了 一 个 精心 制作 的 包 ， 它 把 许多 在 本 草 和 其 他 章节 讨论 的 概念 结合 在 一 起 。 包 的 初始 化 已 在 变量 初始 化 方面 述 及 。 此 外 ， 你 看 到 了 如 何在 
包 定 义 中 利用 SERIALLY_REUSABLE 编 译 指 示 防 止 Oracle 把 持 着 内 存 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


第 22 章 ”仓储 代码 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
-收集 存储 代码 的 相关 信息 


在 第 19 章 ， 我 们 了 解 了 过 程 ， 在 第 20 章 ， 我 们 了 解 了 函数 ， 而 在 第 21 章 ， 我 们 了 解 了 把 函数 和 过 程 组 成 一 个 包 的 过 程 。 现 在 ， 你 将 了 解 更 多 的 有 天 
将 代码 捆绑 成 一 个 包 的 意义 。 可 以 访问 许多 数据 字典 视图 来 收集 包 中 的 对 象 的 相关 信息 。 


包 中 的 函数 ， 必 须 符 合 附加 的 限制 才能 在 SELECT 语句 中 使 用 。 在 本 章 ， 你 将 学 习 如 下 内 容 : 这 些 限 制 是 什么 ， 以 及 如 何 实施 这 些 限制 。 你 还 将 学 习 
高 级 的 重 载 函 数 或 过 程 的 技术 ， 使 其 根据 传 入 参数 的 类 型 执行 不 同 的 代码 。 


221 实验 : 收集 存储 代码 的 相关 信息 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 从 数据 字典 获取 存储 代码 的 信息 。 
` 重 载 模块 。 


存储 程序 以 一 种 编译 后 的 形式 保存 在 数据 库 中 。 关 于 这 样 的 存储 程序 的 信息 ， 可 以 通过 各 种 数据 字典 视图 访问 。 在 第 19 草 ,我 们 了 解 了 两 个 数据 字 
典 视图 : USER_OBJECTS 和 USER_SOURCE。 在 第 13 章 ,我 们 了 解 了 另 一 种 视图 ，USER_TRIGGERS。 其 他 一 些 数据 字典 视图 也 可 用 于 获取 存储 代码 的 相 
天 信息 。 在 本 节 ， 你 将 学 习 如 何 利用 这 些 选 项 。 


22.22 Кай 


在 本 章 ， 我 们 了 解 了 可 用 于 收集 存储 代码 的 相关 信息 的 各 种 数据 字典 视图 。 这 些 视 图 使 你 能 够 获得 有 天 函数 、 过 程 和 包 的 参数 和 依赖 天 系 的 信息 。 
我 们 还 了 解 了 如 何 重 载 函 数 和 过 程 ， 使 得 取决 于 传 入 调用 函数 或 过 程 中 的 有 多 少 和 哪些 类 型 的 值 ， 可 以 以 不 同 的 万 式 使 用 同一 对 象 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 


的 理解 程度 。 


第 23 音 ”Oracle 对 象 类 型 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
-对象 类 型 
“ 对 象 类 型 的 方法 


在 Oracle 中 ， 对 象 类 型 是 面向 对 象 的 程序 设计 的 主要 成 分 。 它 们 被 用 来 模拟 真实 世界 的 有 形 实体 ， 如 学 生 、 教 师 和 银行 账户， 以 及 抽象 的 实体 ， 如 
邮政 编码 、 几 何 形状 和 化 学 反应 。 


在 本 章 ， 你 将 学 习 如 何 创建 对 象 类 型 ,以 及 如 何在 集合 类 型 中 骨 套 对 象 类 型 。 此 外 ， 你 还 将 了 解 各 种 不 同 的 对 象 类 型 的 方法 和 它们 的 用 途 。 


本 章 是 介绍 性 的 ， 不 涉及 更 高 级 的 主题 ， 如 对 象 类 型 继承 和 演化 、REF 修 饰 符 和 对 象 类 型 表 (不 要 与 集合 混淆 ) 。 这 些 主题 ， 与 许多 其 他 主题 ， 都 在 
Oracle 的 文档 中 涵盖 ， 上 有 具体 而 言 ， 在 Oracle 的 《Database Object-Relational Developer’ s Guide》 中 。 


23.1 实验 1: 对 象 类 型 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
. 创建 对 象 类 型 。 
. 使 用 对 象 类 型 与 集合 。 


对 和 象 类 型 通常 由 两 部 分 组 成 : 属性 (数据 ) 和 方法 (函数 和 过 程 ) 。 属 性 是 摘 述 此 对 象 类 型 的 本 质 特征 。 例 如 ， 学 生 对 象 类 型 的 一 些 属性 可 能 是 姓 
和 名 、 联 系 信息 和 登记 信息 。 广 法 是 在 对 象 类 型 中 定义 的 函数 和 过 程 ， 它 们 是 可 选 的 。 它 们 表示 有 可 能 要 在 对 象 属 性 上 执行 的 操作 。 例 如 ， 学 生 对 象 类 
型 的 方法 可 以 更 新 学 生 联 系 信息 、 获 得 学 生 的 姓名 或 显示 学 生 的 信息 。 


对 象 类 型 通过 组 合 属性 和 方法 ， 促 进 了 数据 与 可 在 该 数据 上 执行 的 操作 的 封闭 。 作 为 一 个 示例 ， 图 23-1 显 示 了 对 象 类 型 Student。Sstudent ID, 
First Name、Zip 和 Employer 是 student 对象 类 型 的 一 些 属性 ， 而 Update Contact Info, Get Student ID 和 Get Student Name 是 一 些 方法 。 图 23-1 也 
显示 了 此 对 象 类 型 的 两 个 实例 ，Student 1 与 Student 2。 对象 实 例 是 对 象 类 型 的 值 。 换 句 话 说，Student 对 象 类 型 的 实例 student 1 和 student 2 包含 实 
际 学 生 数 据 ， 使 得 Get Student 1D 方 法 返回 实例 student 1 的 学 生 ID 102 和 实例 Student 2 的 学 生 ID 103。 


对 象 类 型 Student 


属性 方法 

Student ID Update Contact Info 
First Name Update Employer 
Last Name Get Student ID 
Street Address Get Student Name 
City Display Student Info 
State 

Zip 

Phone 

Employer 


对 象 实例 : Student 1 


属性 

Student ID: 102 

First Name: Fred 

Last Name: Crocitto 

Street Address: 101-09 120th St. 
City: Richmond Hill 

State: NY 

Zip: 1141 9 

Phone: 718-555-5555 

Employer: Albert Hildegard Co. 


方法 

Update Contact Info 
Update Employer 
Get Student ID 

Get Student Name 
Display Student Info 


你 知道 吗 ? 


对 象 实例 经 常 被 简称 为 对 象 。 


在 Oracle 中 ， 对 象 类 型 采用 CREATE OR REPLACE TYPE 子 句 创建 并 存储 在 数据 库 模式 中 。 因 此 ， 对 象 类 型 不 能 在 PL/SQL 块 或 存储 子 程序 中 创建 。 


HELE: Student 2 


属性 

Student ID: 103 

First Name: J. 

Last Name: Landry 

Street Address: 7435 Boulevard East #45 
city: North Bergen 

State: NY 

Zip: 07047 

Phone: 201-555-5555 

Employer: Albert Hildegard Co. 


方法 

Update Contact Info 
Update Employer 
Get Student ID 

Get Student Name 
Display Student Info 


图 23-1 ”对象 类 型 Student 


一 旦 对 象 类 型 已 被 创建 并 存储 在 数据 库 模 式 中 ，PL/SQL 块 或 子 程序 束 可 引用 此 对 象 类 型 。 


23.2 ”实验 2: 对 象 类 型 的 方法 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 构造 方法 。 


- 使 用 成 员 方 法 。 


` 使 用 静态 方法 。 
- 通过 Mapb 和 Otrdetr 方 法 比较 对 象 。 


在 23.1 节 ， 我 们 了 解 到 ， 对 象 类 型 的 万 法 是 指定 可 在 对 象 类 型 属性 上 执行 的 操作 ， 并 在 对 象 类 型 规范 中 定义 的 函数 和 程序 。 此 外 ， 我 们 还 了 解 了 如 
何 使 用 默认 的 系统 定义 的 构造 方法。 构造 方法 只 是 被 PLUSQL 闵 持 的 方法 类 型 之 一 。 其 他 一 些 方法 类 型 包括 成 员 、 静 态 、 映 射 和 排序 方法 。 方 法 类 型 通 弟 
由 特定 的 方法 执行 的 操作 来 确定 。 例 如 ， 构 造 方法 被 用 于 初始 化 对 象 的 实例 ， 而 映射 和 排序 方法 分 别 用 于 比较 和 排序 对 象 实例 。 


对 象 类 型 的 方法 通常 使 用 名 为 SELF 的 内 置 参 数 。 这 个 参数 表示 对 象 类 型 的 一 个 特定 实例 。 正 因为 如 此 ， 它 可 供 那 些 在 此 对 象 类 型 实例 上 调用 的 方法 
使 用 。 你 会 在 下 面 的 讨论 中 看 到 SELF 参 数 的 各 种 示例 |。 


23.3” 忆 结 


在 本 章 ， 我 们 学 会 了 如 何在 Oracle 中 定义 和 使 用 对 象 。 总 体 而 言 ，Oracle 中 的 对 象 类 型 类 似 于 Java 中 创建 的 类 。 它 们 包括 属性 和 方法 ， 其 中 ， 属 性 
表示 对 象 的 不 同 的 数据 元 素 ， 而 方法 用 于 执行 对 这 些 数据 元 素 的 各 种 操作 。 我 们 还 学 会 了 如 何 实现 和 使 用 不 同类 型 的 方法 来 初始 化 、 比 较 和 排序 对 象 。 
此 外 ， 我 们 研讨 了 如 何 使 用 对 象 与 集合 。 

ШЕ АУ 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获得 的 一 切 技能 来 测试 你 


的 理解 程度 。 


第 24 章 ”Oracle 提供 的 包 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
- 利用 Oracle 提 供 的 包 扩 展 功 能 
. 利用 Oracle 提 供 的 包 报告 错误 


Oracle 已 经 在 其 数据 库 中 内 置 了 数 百 个 包 ， 它 们 可 以 扩展 你 用 PL/SQL 实 现 的 目标 。 数 据 库 的 每 个 新 版 本 都 配备 了 新 提供 的 包 。 随 同 版 本 
12c，Oracle 推 出 了 18 个 全 新 的 包 ， 而 且 在 许多 现 有 的 包 中 增加 了 新 的 程序 。 这 些 包 提供 了 无 法 单独 用 PL/SQL 实 现 的 功能 。 其 原因 是 ，Oracle 提 供 的 包 
使 用 了 C 编 程 语言 ， 这 不 是 你 可 以 用 普通 的 PL/SQL 包 完成 的 东西 。 因 此 ，Oracle 提 供 的 包 能 够 完全 访问 无 法 用 普通 的 PL/SQL 包 访问 的 操作 系统 和 Oracle 
服务 器 的 其 他 方面 。 你 已 经 熟悉 了 DBMS_OUTPUT 包 的 PUT_LINE 过 程 ， 这 是 用 来 在 缓冲 区 收集 调试 信息 以 便 输 出 的 。 本 章 介绍 了 Oracle 提 供 的 几 个 主 
要 的 包 ， 你 会 了 解 它们 的 基本 功能 以 及 如 何 利用 它们 。 


241 实验 1: 利用 Oracle 提 供 的 包 扩 展 功能 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
. 在 PL/SQL 中 利用 UTL_FILE 访 问 文件 。 
- 利用 DBMS_JOB 调 度 作业 。 
- 利用 DBMS_XPLAN 生 成 解释 计划 。 


- 利用 DBMS_SQL 产 生 隐 式 语句 结果 。 


24.2 30152: 利用 Oracle 提 供 的 包 报 告 错误 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 利用 DBMS_UTILITY 包 报告 错误 。 


- 利用 UTIL_ CALL_STACK 包 报告 错误 。 


在 第 8~10 草 中 ， 我 们 探索 了 在 程序 中 用 于 处 理 和 报告 错误 的 各 种 技术 。 运 今 为 止 ， 你 所 看 到 的 示例 都 很 简单 ， 即 处 理 一 个 或 多 个 异 弟 的 单个 脚本 。 
在 使 用 应 用 程序 工作 时 ， 和 弟弟 有 多 个 编程 单元 可 以 相互 调用 并 且 把 执行 控制 传递 到 某 个 中 间 层 或 前 器 。 在 这 样 的 情况 下 ， 适 当 的 错误 报告 机 制 是 很 重要 
的 。 如 果 没 有 它 ， 开 发 人 员 和 用 户 就 可 能 会 遇 到 各 种 各 样 的 问题 。 


在 PL/SQL 中 ， 有 两 个 预定 义 包 可 以 用 于 此 用 途 ， 它 们 分 别 是 : DBMS_UTILITY 和 UTL САП. STACK.。 


243 R 


在 本 章 ， 我 们 了 解 了 可 用 于 扩展 程序 功能 的 Oracle 提 供 的 各 种 包 。 我 们 回顾 了 在 存储 过 程 中 利用 UTL FILE 来 访问 操作 系统 文件 的 战略 。 我 们 还 学 习 
了 如 何 利用 DBMS XPLAN 生 成 的 解释 计划 来 分 析 SQL。 此 外 ， 我 们 还 看 到了 如 何 使 用 DBMS _SQL 来 生成 隐 式 语句 的 结果 。 本 章 最 后 探讨 了 利用 
DBMS UTILITY 和 UTL CALL STACK 报 告 错误 。 


з25®з ”优化 PL/SQL 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
· PL/SQL 2. А. 
PL/SQL 优 化 级 别 
` 子 程序 内 联 


数据 库 开 发 人 员 在 复杂 的 开 友 环境 中 工作 时 通 弟 需要 提高 其 代码 的 性 能 。 这 种 做 法 的 出 友 点 通常 是 嵌入 在 PL/SQL 代 码 中 的 DML 语 句 的 性 能 评价 及 其 
随后 的 调整 。 一 旦 对 这 些 语句 进行 了 改进 ， 优 化 任务 就 被 认为 是 完成 了 ， 而 PL/SQL 代 码 本 身 的 性 能 优化 通常 被 忽视 。 


事实 上 ，Oracle 提 供 了 一 套 工 具 来 帮助 你 找 出 性 能 瓶 须 ， 并 提供 了 各 种 专门 面向 PL/SQL 的 优化 技术 。 例 如 ， 你 已 经 看 到 如 何 最 大 限度 地 减少 
PLMSQL 和 SQL 引擎 之 间 的 上 下 文 切换 次 数 ， 并 采用 批量 SQL 和 批量 绑 定 实现 更 好 的 性 能 。 在 本 章 ， 你 将 学 习 如 下 内 容 : PL/SQL 齐 析 器 和 跟踪 API、 
PL/SQL 层 次 式 剖 析 器 工具 ， 以 及 应 用 这 些 工 具 来 确定 潜在 的 性 能 问题 。 此 外 ， 你 还 将 了 解 PU/SQL 的 性 能 优化 器 和 它 的 优化 级 别 ， 并 研讨 一 种 称 为 子 程序 
内 联 的 新 式 优 化 技术 。 


25.1 实验 1: PLUSQL 调 优 工具 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


- 使 用 PL/SQL 剖 析 器 API。 


. 使 用 跟踪 API。 
` 使 用 PL/SQL 层 次 式 训 析 器 。 


正如 前 面 所 提 到 的 ，Oracle 提 供 了 特定 的 工具 来 帮助 你 诊断 PL/SQL 代 码 的 性 能 问题 : PLUSQL 齐 析 器 API、 跟 踪 API 和 PL/SQL 层 次 式 剖 析 器 。 所 有 这 
些 工 具 都 通过 Oracle 提 供 的 包 实 现 ， 这 使 得 它们 既 容易 得 到 ， 又 很 容易 安装 和 使 用 。 


25.2 ”实验 2: PL/SQL 优 化 级 别 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
. 了 解 PL/SQL 优 化 级 别 。 


在 版 本 10g 中 ，Oracle 为 PL/SQL 编 译 器 引入 了 一 个 新 的 功能 ， 这 被 称 为 性 能 优化 器 。 实 质 上 ， 此 优化 器 允许 PL/SQL 编 译 器 重新 组 织 源 代码 ， 以 提高 
其 性 能 。 编 译 器 应 用 于 代码 的 优化 级 别 由 PLSQL OPTIMIZE LEVEL 参数 控制 ， 此 参数 可 在 实例 级 或 会 话 级 设 定 。 优 化 的 这 些 级 别 在 表 25-5 中 列 出 。 


表 25-5 PL/SQL 优 化 级 别 


优化 级 别 描 述 
级 别 0 无 优化 。 这 相当 于 Oracle 10g 前 的 版 本 
级 别 1 部 分 优化 。 这 包括 移 除 不 必要 的 计算 、 异 常 或 赋值 ， 但 不 对 源 代码 进行 重组 
级 别 2 默认 优化 。 这 产生 更 明显 的 性 能 提高 ， 因 为 代码 在 编译 过 程 中 可 能 被 重 写 并 /或 重新 放置 
级 别 3 在 11g 版 本 中 加 入 的 最 高 级 别 的 优化 。 这 使 用 了 自动 化 子 程序 内 联 


为 了 说 明 PLVSQL 代 码 的 性 能 是 如 何 被 不 同 的 优化 级 别 影响 的 ， 考 虑 一 个 执行 一 个 数字 FOR 循环 并 执行 一 些 无 意义 的 计算 的 简单 示例 。 它 分 别 在 
PLSQL OPTIMIZE_LEVEL 设 置 为 0、1 和 2 时 执行 。 此 外 ， 它 采用 了 PLVSQL 齐 析 器 ， 这 样 你 可 以 详细 碍 看 性 能 问题 实际 上 如 何以 及 在 何 处 上 友 生 。 注 意 ， 在 
示例 中 列 出 的 行 号 是 为 了 供 将 来 引用 ， 而 不 是 实际 PL/SQL 代 码 的 一 部 分 。SET TIMING ON 命令 使 Oracle 测 量 并 显示 脚本 的 执行 时 间 。 使 用 ALTER 
SESSION 命令 在 会 话 级 别 将 PL SQL OPTIMIZE LEVEL 变量 设置 为 指定 的 值 。 


加 注意 在 运行 本 节 中 使 用 的 示例 前 ，STUDENT 模 式 应 当 如 25.1 节 所 述 的 那样 启用 对 PL/SQL 剖 析 器 API 的 使 用 。 


示例 ch25 2а.59 


SET TIMING ОМ; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 0; 


1 DECLARE 

2 v numl NUMBER; 

3 у num2 NUMBER; 

4 Уу num3 NUMBER; 

5 v run id BINARY INTEGER; -- 由 剂 析 器 产生 的 运行 ID 
6 BEGIN 

7 DBMS РКОЕІТЕК.5ТАКТ PROFILER ('Optimizer level at 0'); 
8 

9 FOR i ІМ 1..1000000 

10 LOOP 

11 у паті := 1; 

12 у num2 := і + 1/2 + sqrt (1); 

13 у num3 := v_num1 + у пит2; 

14 END LOOP; 

15 

16 DBMS PROFILER.STOP PROFILER (); 

17 


18 SELECT runid 
19 INTO у run id 
20 FROM plsql profiler runs 


21 WHERE run comment = 'Optimizer level at 0'; 

22 

23 DBMS OUTPUT.PUT LINE ('Optimizer level at 0, run ID - !||у гип іа); 
24 END; 


1ЕЯПЫЛЕНТ=Е НУ, ЧАИ — EENAA, HRAPL/SQOLAT APRETAR. 27у) 7 aTa, CET 
用 于 存储 剖析 器 运行 ID 的 v_ run_id 变 量 。 这 个 ID 是 从 PLSQL_PROFILER_RUNS 表 中 选择 并 在 脚本 的 未 尾 显示 的 。 剖 析 器 运行 时 数据 的 收集 通过 
DBMS_PROFILER.START_PROFILER 过 程 启动 ， 并 通过 DBMS_PROFILER.STOP_PROFILER 过 程 结束 。 


在 运行 时 ， 此 脚本 生成 以 下 输出 : 


Elapsed: 00:00:03.317 
Optimizer level at 0, гип ID - 1 


脚本 输出 窗口 输出 的 第 一 行 显示 在 SQL Developer 中 执行 此 脚本 的 用 时 。 对 于 第 二 次 运行 ，PLSQL OPTIMIZE LEVEL 被 设置 为 1， 而 脚本 按 如 下 所 
示 进 行 修 改 。 所 有 更 改 以 粗 体 突出 显示 。 


示例 ch25 20.5а| 


SET ТІМІМС ОМ; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 1; 


DECLARE 
Vv numl NUMBER; 


1 

2 

3 у num2 NUMBER; 

4 v num3 NUMBER; 

5 v run іа BINARY INTEGER; -- 由 剖析 器 产生 的 运行 ID 

6 ВЕСІМ 

7 DBMS PROFILER.START PROFILER ('Optimizer level at 1'); 


8 
9 FOR i ІМ 1.. 1000000 


10 LOOP 

11 Уу памі := 1; 

Ta v num2 := i + 1/2 + sqrt (і); 

1 v_num3 := у numi + у пит2; 

14 END LOOP; 

t5 

16 DBMS PROFILER.STOP PROFILER(); 

LF 

18 SELECT runid 

19 INTO у run іа 

20 FROM plsql profiler runs 

21 МИНЕКЕ run comment = 'Optimizer level at 1'; 
22 

23 DBMS OUTPUT.PUT LINE ('Optimizer level at 1, run ID - '||v_run_id); 
24 END; 


在 运行 时 ， 这 个 版 本 将 产生 以 下 输出 : 
Elapsed: 00:00:03.103 
Optimizer level at 1, run Ір - 2 


需要 注意 的 是 ， 两 次 运行 之 间 有 一 个 很 微不足道 的 性 能 提高 。 
接 下 来 ， 考 虑 本 示例 的 另 一 个 版 本 ， 其 中 PLSQL OPTIMIZE LEVEL 被 设置 为 2， 而 PLUSQL 块 被 相应 地 修改 。 受 影响 的 语句 以 粗 体 突出 显示 。 
示例 ch25 2c.sq| 


1 DECLARE 

2 У numi NUMBER; 

3 у пит2 NUMBER; 

4 v num3 NUMBER; 

5 у run id BINARY_INTEGER; -- 由 剖析 器 产生 的 运行 ID 

6 BEGIN 

7 DBMS PROFILER.START PROFILER ('Optimizer level at 2'); 
8 


9 FOR 1 IN 1.. 1000000 


10 LOOP 

ДЕ у numl := 1; 

12 v num2 := і + 1/2 + sqrt (і); 

ка у num3 :=V numl + у пит2; 

14 END LOOP; 

La 

16 DBMS PROFILER.STOP PROFILER (); 

17 

18 SELECT runid 

19 INTO у run іа 

20 FROM plsql profiler runs 

21 WHERE run comment = 'Optimizer level at 2'; 
22 

23 DBMS OUTPUT .PUT LINE ('Optimizer level at 2, run Ір - '||у гоп іа); 
24 END; 


在 运行 时 ， 这 个 版 本 的 脚本 将 产生 以 下 输出 : 


Elapsed: 00:00:02.562 
Optimizer level at 2, run ID - 3 


随 着 把 PLSQL OPTIMIZE LEVEL 设置 为 2， 在 性 能 上 的 提高 更 加 明显 。 


自从 把 优化 级 别 从 0 改 为 1 和 2， 友 生 了 什么 情况 ”为 了 回答 这 个 问题 ， 让 我 们 来 看 看 由 PLMSQL 刘 析 器 生成 的 数据 ; 


SELECT r.runid, r.run comment, d.line#, d.total occur, d.total time 
FROM plsql profiler _ runs г 
‚plsql _ profiler даса а 
‚plsql profiler units u 
WHERE r.runid = d.runid 
AND а.гчпіа = типта 
AND d.unit_number = u.unit_number 


SELECT 语 句 从 PL/SQL 剂 析 器 表 中 选择 被 执行 的 每 一 行 代码 (d.total оссиг>0) 的 数据 。 仔 细 查 看 第 11 行 生成 的 数据 (以 粗 体 突出 显示 ) 。 第 11 行 


AND ‘Gd.total occur > 0 
ORDER BY d.runid, а.11пе#; 


RUNID RUN COMMENT LINE# TOTAL OCCUR TOTAL TIME 
1 Optimizer level at 0 9 1000001 128784207 
І Optimizer 1еуе1 at 0 19 1000000 204515328 
1 Optimizer level at 0 р б. 1000000 1928730621 
1 Optimizer level at 0 13 1000000 235407659 
1 Optimizer level аі 0 14 1 0 

1! Optimizer level at 0 16 1 13032 

2 Optimizer level at 1 9 1000001 122832257 
2 Optimizer 1еуе1 аі 1 11 1000000 143920674 
2 Optimizer level at 1 12 1000000 1820567385 
2 Optimizer level at 1 13 1000000 181771219 
2 Optimizer level at 1 14 1 0 

2 Optimizer level аі 1 16 1 12000 

3 Optimizer level at 2 9 1000001 134848732 
3 Optimizer 1еуе1 at 2 IL 1000000 0 

3 Optimizer level at 2 12 1000000 1583962321 
3 Optimizer level at 2 13 1000000 188121402 
3 Optimizer level at 2 16 1 10015 


对 应 于 赋值 语句 : 


L3 


它 在 数字 FOR 循环 的 循环 体 中 。 注 意 ， 尽 管 对 于 运行 ID 1 和 ID 2 (优化 级 别 分 别 为 0 和 1) ， 第 11 行 都 执行 了 100 万 次 ， 也 有 在 TOTAL_TIME 列 所 示 的 
性 能 提高 。 接 下 来 ， 查 看 对 于 运行 ID 3 (优化 级 别 为 2) 的 第 11 行 。 虽 然 TOTAL OCCUR 列 指出 此 赋值 语句 执行 了 100 万 次 ， 但 花费 在 该 操作 上 的 总 时 间 


у паті := І; 


却 为 0。 这 怎么 可 能 ? 


回顾 一 下 ， 把 优化 级 别 设置 为 2 会 局 用 代码 的 重新 放置 和 重 写 。 因 此 ， 在 第 11 行 中 的 赋值 操作 被 重新 放置 到 循环 外 ， 或 此 变量 v_ num1 被 整体 除去 ， 


而 它 的 值 第 13 行 被 取代 ， 这 是 可 能 的 。 因 此 ， 原 始 语句 : 


13 у num3 := Уу numi + у пит2; 
有 可 能 成 为 
La у num3 := 1 + Уу пит2; 


优化 级 别 2 引 入 的 另 一 个 重要 的 优化 技术 是 静态 游标 FOR 循环 使 用 限制 为 100 个 记录 的 隐 式 批量 读 取 。 因 此 ， 如 果 一 段 代 码 ， 在 游标 FOR 循环 中 逐个 
记录 地 读 取 并 处 理 ， 使 用 2 级 优化 的 记录 将 一 次 100 个 记录 地 批量 读 取 。 这 种 方法 会 产生 显著 的 性 能 改进 ， 如 下 面 的 示例 所 示 。 


示例 ch25 За.59 


SET ТІМІМС ОМ; 


-- 创建 测试 表 
CREATE TABLE TEST TAB 
(со11 NUMBER) ; 


/ 

-- 用 随机 数据 填充 新 创建 的 表 

INSERT INTO TEST ТАВ 

SELECT ROUND (DBMS RANDOM.VRLUE (1, 99999999), 0) 
FROM dual 

CONNECT by level < 100001; 

СОММІТ; 


EXEC DBMS STATS .GATHER TABLE STATS (user, 'TEST TAB ' ) ; 


-- 用 不 同 的 优化 级 别 运 行 相 同 的 代码 示例 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 1; 


ВЕСІМ 
FOR гес ІМ (SELECT coll FROM test Сар) 
LOOP 
null; -- 什么 都 不 做 
END LOOP; 
END; 
/ 


ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 2; 


BEGIN 
FOR REC IN (SELECT со11 FROM test Сар) 
LOOP 
NULL; -- 什么 都 不 做 
END LOOP; 
END; 
/ 


首先 ， 这 个 脚本 创建 TEST TAB 表 。 然 后 ， 它 用 一 些 随 机 的 数值 数据 填充 了 TES TAB 表 ， 并 通过 DBMS STATS.GATHER TABLE STATS 过 程 来 收集 表 
统计 信息 。 
你 知道 吗 ? 


DBMS_STATS 包 用 于 收集 数据 库 对 象 的 各 种 统计 数据 。 这 些 统计 数据 可 一 次 针对 一 个 数据 库 对 象 进行 收集 ， 如 前 面 的 示例 所 示 ， 或 者 针对 数据 库 或 
模式 中 的 所 有 对 象 进行 收集 。 


接着 ， 此 脚本 把 优化 级 别 设置 为 1， 并 且 针 对 TEST_TAB 表 执行 游标 FOR 循 环 。 注 意 循 环 体 中 NULL; 语 句 的 使 用 。 实 质 上 ， 这 意味 着 在 循环 体 中 没有 
完成 什么 工作 。 最 后 ， 此 脚本 将 优化 级 别 设置 为 2， 再 次 执行 游标 FOR 循环 。 


在 运行 时 ， 此 示例 产生 下 面 的 输出 : 


table TEST ТАВ created. 
Elapsed: 00:00:00.060 
100,000 rows inserted. 
Elapsed: 00:00:01.595 
committed. 

Elapsed: 00:00:00.016 
anonymous block completed 
session SET altered. 
Elapsed: 00:00:00.001 
anonymous block completed 
Elapsed: 00:00:00.767 
session SET altered. 
Elapsed: 00:00:00.002 
anonymous block completed 
Elapsed: 00:00:00.080 


仔细 得 看 以 粗 体 突 出 显示 的 用 时 。 执 行 时 间 从 0.767 变 成 了 0.080。 对 于 这 样 一 个 简单 的 脚本 ， 这 是 一 个 显著 的 提高 。 其 次 ， 考 虑 通过 创建 一 个 新 表 
TEST_TAB1 和 在 游标 FOR 循环 中 填充 它 来 扩充 这 个 示例 。 融 像 上 面 的 示例 ， 这 个 版 本 也 是 用 优化 级 别 1 和 2 来 执行 的 。 


示例 ch25 4а.59 
SET ТІМІМС ОМ; 


-- 创建 测试 表 

CREATE TABLE test tabl (coll NUMBER) ; 

/ 

-- 用 不 同 的 优化 级 别 运行 相同 的 代码 示例 

ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 1; 


BEGIN 
FOR гес IN (SELECT со11 FROM test tab) 
LOOP 
INSERT INTO TEST ТАВ1 VALUES (rec.coll); -- 填充 新 创建 的 表 
END LOOP; 
END; 
/ 


ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 2; 


BEGIN 
FOR REC IN (SELECT coll FROM test tab) 
LOOP 
INSERT INTO TEST ТАВ1 VALUES (rec.coll); -- 填充 新 创建 的 表 
END LOOP; 
END ; 
/ 


该 示例 产生 下 面 的 输出 : 


саре TEST TABL сгеаѓеа. 
Elapsed: 00:00:00.059 
session SET altered. 
Elapsed: 00:00:00.001 
anonymous block completed 
Elapsed: 00:00:10.683 
session SET altered. 
Elapsed: 00:00:00.002 


anonymous block completed 
Elapsed: 00:00:09.668 


只 要 把 INSERT 语 句 添加 到 循环 体 ， 两 种 优化 级 别 之 间 的 主要 性 能 提高 就 去 失 了 。 这 是 由 于 缺乏 对 DML 语 句 的 隐 式 优化 。 在 这 种 情况 下 ， 更 好 的 性 能 
是 通过 改变 脚本 并 添加 批量 SQL 优 化 技术 (在 第 18 草 包括 ) 获得 的 。 


最 后 两 个 示例 很 清楚 地 表明 ， 昌 然 认 识 到 PL/SQL 优 化 可 能 会 在 幕后 友 生 是 有 帮助 的 ， 但 完全 依赖 于 它 不 是 个 好 主意 。 虽 然 有 时 你 创建 的 代码 可 以 在 
编译 时 进行 优化 ， 但 通过 优化 实践 ， 并 在 性 能 上 太 现 结果 的 基础 上 明确 改变 代码 要 好 得 多 。 


25.3 ”实验 3: 子 程序 内 联 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
: 使 用 子 程序 内 联 。 


在 25.2 节 ， 我 们 了 解 了 不 同 的 PL/SQL 优 化 级 别 。 具 体 来 说 ， 你 看 到 了 优化 级 别 为 0、1 和 2 的 示例 。 在 本 节 ， 我 们 将 了 解 子 程序 内 联 的 概念 ， 并 探讨 
它 是 如 何 与 优化 级 别 3 结合 使 用 的 。 


在 《PL/SQL Language Reference) (PL/SQLi 语 言 参考 ) 中 ， 子 程序 内 联 的 概念 定义 如 下 : “ 子 程序 内 联 将 子 程序 调用 替换 为 被 调用 的 子 程序 的 
副本 (如 果 调 用 和 被 调用 子 程序 都 在 同一 个 程序 单元 中 ) 。” 子 程序 内 联 可 以 利用 PRAGMAi 语 句 或 通过 设置 PLSQL OPTIMIZE LEVEL 3 来 启用 ， 如 清单 
25-1 所 示 。 


清单 25-1 启用 子 程序 内 联 


PRAGMA INLINE (subprogram пате, 'YES'); 


或 


ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 3; 
当 PRAGMA INLINE 语 句 使 用 时 ， 它 应 该 出 现在 每 个 子 程序 调用 之 前 。 回 顾 一 下 ，PLSQL OPTIMIZE LEVEL 也 可 以 在 实例 级 被 设置 为 特定 值 。 当 
PLSQL OPTIMIZE_LEVEL 被 设置 为 3 时 ， 子 程序 内 联 是 自动 完成 的 。 


最 好 通过 查看 一 些 示例 来 说 明子 程序 内 联 的 用 法 和 与 其 相关 的 性 能 提高 。 在 这 些 脚 本 中 ， 同 样 的 PL/SQL 人 代码 被 执行 两 次 。 对 于 这 两 次 运行 ，PL/SQL 
优化 级 别 都 保持 为 2， 但 子 程序 内 联 仪 在 第 二 次 运行 中 局 用 。 示 例 中 的 行 号 是 供 将 来 参考 的 ， 而 不 是 实际 PLUSQL 代 码 的 一 部 分 。 


QOS 在 运行 本 节 的 示例 前 ，STUDENT 模 式 应 该 被 扩展 到 使 用 PL/SOL 层 次 式 训 析 器 。 必 要 步骤 已 在 25.1 节 中 描述 。 


示例 ch25 5a.sq| 


SET TIMING ON; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 2; 


1 DECLARE 

2 v num PLS INTEGER; 

3 Уу run id BINARY INTEGER; -- 由 诈 析 器 产生 的 运行 ID 
4 

5 FUNCTION test func (numl ІМ PLS INTEGER 
6 ,num2 ІМ PLS INTEGER) 
7 RETURN PLS ІМТЕСЕК 

8 ЕБ 

Э ВЕСІМ 

10 RETURN (numl + num2); 

11 END test Гипс; 

12 

13 BEGIN 


14 DBMS HPROF .START PROFILING ('PLSHPROF DIR', 'test.txt'); 
15 FOR i IN 1..100000 

16 LOOP 

17 у пот := еве Гипс (1-1; і); 

18 END LOOP; 

19 DBMS HPROF .SIOP PROFILING; 


20 

21 -- 分 析 剖 析 器 的 输出 并 显示 它 的 运行 ID 

22 Уу гоп іа := DBMS HPROF .ANALYZE ('PLSHPROF DIR', 'test.txt'); 

23 DBMS OUTPUT .PUT LINE ('Inline pragma is not enabled, run Ір - '||у run іа); 
24 END; 


此 脚本 定义 了 一 个 返回 两 个 数 的 总 和 的 函数 test func。 此 函数 然后 在 数字 FOR 循 环 体 中 被 调用 ， 在 那里 它 的 结果 被 赋予 变量 v_ num。 人 循环 的 执行 由 
PL/SQL 层 次 式 剖 析 器 进行 剖析 。 剖 析 器 将 其 原始 数据 写 入 位 于 /plshprof/results/ 目 录 的 test.txt 文 件 。 最 后 ， 对 剖析 器 输出 进行 分 析 ， 并 记录 在 其 表 
中 ， 并 且 在 屏幕 上 显示 运行 ID 以 供 以 后 参考 。 


在 运行 时 ， 这 个 版 本 的 示例 产生 下 面 的 输出 : 


session SET altered. 

Elapsed: 00:00:00.001 

Inline pragma is not enabled, run ID - 1 
Elapsed: 00:00:00.602 


接 下 来 ， 考 虑 人 在 其 中 局 用 子 程序 内 联 的 本 示例 的 修改 版 本 。 更 改 以 粗 体 突 出 显示 。 
示例 ch25 5b.sq| 


SET TIMING ON; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 2; 


DECLARE 
v num PLS INTEGER; 
у run id BINARY INTEGER; -- 由 剖析 器 产生 的 运行 ID 


;num2 ІМ PLS INTEGER) 
RETURN PLS INTEGER 
IS 
BEGIN 


1 
2 
З 
4 
5 FUNCTION test func (numl ІМ PLS INTEGER 
6 
7 
8 
з 
10 RETURN (пит1 + пит2) ; 


11 END test func; 

12 

13 BEGIN 

14 DBMS HPROF .START PROFILING ('PLSHPROF DIR', 'test.txt'); 
15 ROR 1 ІМ 1..100000 


16 ГООР 

ak -- 为 每 个 函数 调用 都 启用 了 内 联 编译 

18 PRAGMA INLINE (test func, 'YES'); 
19 у пит := test func (1-1, 1); 


20 END LOOP; 
21 DBMS HPROF.STOP PROFILING; 


22 
2з -- ФАНЕ т Е 354 ID 

24 Уу run id := DBMS HPROF .ANALYZE ('PLSHPROF DIR', 'test.txt'); 

25 DBMS OUTPUT .PUT LINE ('Іп1іпе pragma is enabled, run ID - !||у гип іа); 
26 ЕМР; 


在 运行 时 ， 这 个 版 本 的 示例 产生 下 面 的 输出 : 


session SET altered. 

Elapsed: 00:00:00.001 

Inline pragma is enabled, run ID - 2 
Elapsed: 00:00:00.073 


注意 ， 在 第 二 次 运行 中 加 入 PRAGMA INLINE 语 句 而 不 改变 PL/SQL 优 化 级 别 已 经 获得 了 多 少 性 能 提高 。 


正如 前 面 所 提 到 的 ， 当 PL/SQL 优 化 级 别 设置 为 2 时 ， 子 程序 内 联 必须 在 每 个 子 程序 调用 之 前 明确 地 局 用 。 因 此 ， 如 果 把 PRAGMA INLINE 语 句 置 于 
循环 外 ， 融 不 会 上 友 生 子 程序 内 联 。 这 表现 在 下 面 的 示例 中 。 受 影响 的 语句 以 粗 体 显示 。 


示例 ch25 5c.sdqd| 


SET TIMING ON; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 2; 


DECLARE 
v_num PLS INTEGER; 
v_run id BINARY INTEGER; -- 由 剖析 器 产生 的 运行 ID 


:num2 ІМ PLS INTEGER) 
RETURN PLS INTEGER 
IS 
9 BEGIN 
10 RETURN (пит1 + пит2); 
11 END test _ func; 


1 
2 
3 
4 
5 FUNCTION безі _ func (numl IN PLS INTEGER 
6 
7 
- 


РУ. 

13 ВЕСІМ 

14 DBMS HPROP .START PROFILING ('РІЅНРКОЕ DIR', 'test.txt'); 
LS 


16 -- 内 联 编译 被 移 到 循环 外 

T. PRAGMA INLINE (test_func, 'ҮЕ5'); 
18 FOR 1 ІМ 1..100000 

19 ООР 

20 v num := test func (1-1, i); 

21 END LOOP; 

22 DBMS НРКОЕ.5ТОР PROFILING; 


24 -- 分 析 剖 析 器 的 输出 并 显示 它 的 运行 ID 


25 v run іа := DBMS HPROF .ANALYZE ('PLSHPROF DIR', 'test.txt'); 
26 DBMS OUTPUT .PUT LINE 
27 ("Іп1іпе pragma is enabled for a single call, run Ір - '||v run іа); 


28 END; 


在 运行 时 ， 此 版 本 的 脚本 生成 以 下 输出 : 


session SET altered. 
Elapsed: 00:00:00.001 


Inline pragma is enabled for a single call, run Ір - 3 


Elapsed: 00:00:00.490 


正如 你 所 看 到 的 ， 我 们 几乎 所 有 的 性 能 提高 都 丢失 了 。 


由 于 每 个 示例 运行 都 被 剖析 和 分 析 了 ， 让 我 们 来 看 看 PL/SQL 层 次 式 训 析 器 已 收集 了 什么 样 的 信息 : 


SELECT runid, function, line#, calls, subtree elapsed times et 


, function elapsed time f e t 
FROM dbmshp function _ info; 


RUNID FUNCTION LINE# CALLS SET F ET 
1 __ апопутоцѕ block.TEST FUNC Б 100000 17461 17461 
1 STOP PROFILING 63 1. 0 0 
2 STOP PROFILING 63 1 0 0 
z __anonymous block.TEST FUNC 5 100000 18327 18327 
3 STOP PROFILING 63 1 0 0 
对 于 运行 ID 1 和 ID 3，test_func 被 执行 100000 次 ， 与 此 相反 ， 对 于 运行 ID 2， 不 存在 对 test_func 的 引用 。 实 际 上 ， 在 编译 时 ， 此 代码 被 修改 为 类 似 
下 面 的 示例 〈 所 有 更 改 以 粗 体 显示 ) : 
示例 ch25 5а.5а| 
SET TIMING ОМ; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 2; 
1 DECLARE 
2 у num PLS INTEGER; 
3 Уу run id BINARY INTEGER; -- 由 剖析 器 产生 的 运行 ID 
4 
5 BEGIN 
6 DBMS HPROF.START PROFILING ('РІЅНРКОЕ DIR', 'test.txt'); 
7 FOR i ІМ 1..100000 
8 ООР 
9 у num := 1-1 + i; -- 没有 5| 用 test func 
10 END LOOP; 
11 DBMS HPROF.STOP PROFILING; 
12 
13 -- Фу h F Е 124 ID 
14 Уу run іа := DBMS HPROF .ANALYZE ('РІЅНРКОЕ DIR', 'test.txt'); 
15 DBMS OUTPUT .PUT LINE ('Inline pragma is enabled, run ID - '||v run іа); 


16 END; 


正如 前 面 所 提 到 的 ， 把 优化 级 别 设置 为 3 确保 只 要 有 可 能 就 执行 隐 式 子 程序 内 联 。 这 点 可 以 通过 下 面 的 示例 证 实 (修改 的 语句 以 粗 体 显示 ) : 


示例 ch25 5e.sq| 


SET ТІМІМС ОМ; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 3; 


1 DECLARE 
2 v num PLS INTEGER; 

3 Уу run id BINARY INTEGER; -- 由 剖析 器 产生 的 运行 ID 
4 

5 FUNCTION test_func (пит1 IN PLS INTEGER 

6 ,num2 IN PLS INTEGER) 

7 RETURN PLS INTEGER 

8 IS 

9 BEGIN 


10 RETURN (num1 + пит2); 
11 END test func; 


12 

13 BEGIN 

14 DBMS HPROP .START PROFILING ('PLSHPROF DIR', 'test.txt'); 
29 

16 FOR і ІМ 1..100000 

17 LOOP 

18 улыт а Cest Eune {121.075 


19 END LOOP; 
20 DBMS НРКОЕ.5ТОР PROFILING; 


21. 

22 -- 分 析 剖 析 器 的 输出 并 显示 它 的 运行 ID 

23 v run іа := DBMS HPROF.ANALYZE ('PLSHPROF DIR', 'test.txt'); 

24 DBMS OUTPUT.PUT LINE ('Inline pragma is enabled implicitly, run ID-'||v run іа); 
25 END; 


在 这 个 版 本 中 ，PLSQL OPTIMIZE_LEVEL 已 被 设置 为 3， 而 PL/SQL 编 译 器 能 够 明确 地 执行 子 程序 内 联 。 这 由 脚本 的 输出 证 实 : 


session SET altered. 

Elapsed: 00:00:00.001 

Inline pragma is enabled implicitly, run ID - 4 
Elapsed: 00:00:00.065 


正如 你 所 看 到 的 ， 根 据 用 时 ， 似 乎 编译 器 已 经 执行 了 子 程序 内 联 。 这 个 事实 可 以 通过 检查 由 PL/SQL 层 次 式 剖 析 器 产生 的 数据 来 确认 : 


SELECT runid, function, line#, calls, subtree elapsed time s е t 
, function elapsed time f е t 
FROM dbmshp function info 
WHERE runid = 4; 


RUNID FUNCTION LINE# CALLS SET F ET 


< STOP PROFILING 63 3, 0 0 


当 优 化 级 别 设置 为 2 并 且 为 特定 的 立 数 /过 程 指定 子 程序 内 联 时 ， 该 功能 不 会 传播 到 正 从 它 调用 的 过 程 /函数 中 。 换 句 话说 ， 如 果 为 过 程 P1 局 用 了 子 程 
序 内 联 ， 并 且 它 引用 了 函数 F1 和 F2， 这 些 函 数 不 会 局 用 内 联 。 这 个 概念 由 下 一 个 示例 进一步 说明 。 


示例 ch25 6a.sq| 


SET ТІМІМС ОМ; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 2; 


DECLARE 
y= /— 


у гип id BINARY INTEGER; -- 由 剖析 器 产生 的 运行 ID 


;num2 IN PLS INTEGER) 


2 
3 
4 FUNCTION f1 (numl IN PLS INTEGER 
5 
6 RETURN PLS INTEGER 

7 

8 


IS 
BEGIN 
9 RETURN (numl + num2); 
10 END f1; 
i a 
иб. FUNCTION f2 (str1 ІМ VARCHAR2 
13 ,Str2 ІМ VARCHAR2) 
14 RETURN VARCHAR2 
ЕБ IS 
16 BEGIN 
17 RETURN (str1||' '||в&г2); 
18 END f2; 
19 
20 PROCEDURE p1 (numl IN PLS INTEGER 
а Е /mnum2 ІМ PLS INTEGER 
22 ;Strl1 ІМ VARCHAR2 
23 ;Str2 ІМ VARCHAR2) 
24 IS 
25 у num NUMBER; 
26 v_str VARCHAR2 (100); 
PATI BEGIN 
28 v num := f1 (пит1, пит2); 
29 vV БЕТ Se ФАВСТ, SCIZ) i 
30 END pl; 
э 
32 BEGIN 


з DBMS HPROF .START PROFILING ('РІЅНРКОЕ DIR', 'test.txt'); 
34 FOR 1 іп 1..100000 


35 LOOP 

36 -- 为 每 个 过 程 调用 都 启用 了 内 联 编译 

37 PRAGMA INLINE (р1, 'YES'); 

38 pl (21-15 Coal to опат (ауу: 


39 END LOOP; 

40 РВМ5 НРКОЕ.5ТОР PROFILING; 

41 

42 -- ГНА Ш 

43 v run іа := DBMS HPROF .ANALYZE ('РІЅНРКОЕ DIR', 'test.txt'); 

44 DBMS ООТРОТ.РОТ LINE ('Іпііпе pragma is enabled, run Ір - '||у гип іа); 
45 END; 


在 这 个 示例 中 ， 有 两 个 国 数 f1 和 f2。 这 些 国 数 是 由 程序 p1 调 用 的 ， 而 这 又 在 数值 FOR 循环 内 被 调用 。 需 要 注意 的 是 ， 已 明确 对 每 个 过 程 调用 局 用 了 
子 程序 内 联 。 本 示例 产生 下 面 的 输出 : 
session SET altered. 
Elapsed: 00:00:00.001 


Inline pragma is enabled, run ID - 5 
Elapsed: 00:00:01.179 


PL/SQL 层 次 式 剖 析 器 报告 了 下 面 这 些 运行 时 统计 信息 : 


SELECT runid, function, line#, calls, subtree elapsed time s e t 
‚ function elapsed time f е t 
FROM dbmshp function _ info 
WHERE runid = 5; 


RUNID FUNCTION LINE# CALLS SET FET 
Б _ anonymous block.F1 1 100000 20595 20595 
5 _ anonymous block.F2 12 100000 42010 42010 
п STOP PROFILING 63 Д. 0 0 


为 了 使 函数 f1 和 f2 启 用 子 程序 内 联 ，PLSQL ОРТІМІДЕ LEVEL 应 设置 为 3 或 应 该 在 国 数 的 调用 之 前 执行 PRAGMA INLINE 语 句 。 当 优化 级 别 设置 为 3 
时 ， 这 个 脚本 会 产生 下 面 这 样 的 输出 : 


session SET altered. 

Elapsed: 00:00:00.001 

Inline pragma 15 enabled, гип ID - 6 
Elapsed: 00:00:00.042 


PL/SQL 层 次 式 训 析 器 报告 了 下 面 这 些 统计 信息 : 


SELECT runid, function, line#, calls, subtree elapsed time se t 
, function elapsed time f е t 
FROM dbmshp function info 
WHERE runid = 6; 


RUNID FUNCTION LINE# CALLS SET FET 


6 STOP PROFILING 63 1 0 0 

当 PL/SQL 代 码 包 含 府 入 式 SQL 语 句 时 ， 由 于 子 程序 内 联 获得 的 性 能 提升 变 得 微不足道 。 这 是 因为 通常 情况 下 SQL 语句 是 执行 时 间 的 主要 消费 者 。 考 
虑 前 面 的 示例 的 一 个 修改 版 本 ， 其 中 已 把 SELECT INTO 语 句 添加 到 函数 {1 和 f2 中 。 所 有 更 改 都 以 粗 体 显示 。 

示例 ch25_6b.sql 


SET TIMING ON; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 3; 


DECLARE 
у гоп id BINARY INTEGER; -- 由 训 析 器 产生 的 运行 ID 


num2 IN PLS INTEGER) 


1 
2 
а 
4 FUNCTION f1 (numl ІМ PLS INTEGER 
5 
6 RETURN PLS INTEGER 

7 

8 


IS 

v num PLS INTEGER; 
9 BEGIN 
10 SELECT numi + num2 
їч! ІМТО у пит 
12 FROM dual; 
13 RETURN v num; 
14 END f1; 
15 


16 FUNCTION f2 (strl ІМ VARCHAR2 


а, ; Str2 IN VARCHAR2) 
18 RETURN VARCHAR2 


L3 І5 

20 у srt УАКСНАР2 (50); 

21 BEGIN 

22 SELECT str1||' '||str2 

23 INTO v str 

24 FROM dual; 

25 RETURN (у str); 

26 END f2; 

27 

28 PROCEDURE pl (num1 ІМ PLS INTEGER 
29 /num2 IN PLS INTEGER 
30 ;Strl1 IN VARCHAR2 
Эл, ;Str2 ІМ VARCHAR2) 
32 15 

33 Уу пот NUMBER; 

34 у str VARCHAR2 (100); 

Tir BEGIN 

36 v_num := f1 (numi, num2) ; 

37 у Btr := f2 (strl, str2); 

38 END pl; 

39 

40 BEGIN 


41 DBMS HPROF.START_ PROFILING ('PLSHPROF DIR', 'test.txt'); 
42 FOR 1 іп 1..100000 

43 LOOP 

44 DL (1-1, 1, Со спат (1-1), БӨ OREL iJj 

45 END LOOP; 

46 DBMS НРКОЕ.5ТОР PROFILING; 


47 

48 -- 分 析 剖 析 器 的 输出 

49 Уу run іа := DBMS HPROF .ANALYZE ('РІЅНРКОЕ DIR', 'test.txt'); 

50 DBMS OUTPUT.PUT LINE ('Inline pragma is enabled, run Ір - '||у run іа); 
51 END; 


在 运行 时 ， 此 脚本 生成 以 下 输出 : 


session SET altered. 

Elapsed: 00:00:00.001 

Inline pragma is enabled, run ID - 7 
Elapsed: 00:00:06.156 


请 注意 用 时 是 如 何 从 0.042 增 加 至 6.156 的 ， 即 使 两 次 运行 的 优化 级 别 都 被 设 定 为 3。PL/SQL 层 次 陈 剖 析 器 为 运行 ID 7 报告 了 如 下 统计 数据 : 


SELECT runid, function, line#, calls, subtree elapsed times e t 
, function elapsed time f e t 
FROM dbmshp function _ info 
WHERE runid = 7; 


RUNID FUNCTION LINE# CALLS 5 ЕТ FET 
7 _ Static 541 exec _ line 44 200000 4382821 4382821 
Ж STOP PROFILING 63 £ 0 0 


PLUSQL 优 化 器 能 够 应 用 子 程序 内 联 ， 但 性 能 没有 提高 ， 这 是 由 在 第 44 行 执行 的 SQL 语句 导致 的 。 正 如 我 们 所 预料 的 ， 每 个 SQL 语句 都 被 执行 了 
100000 次 ， 从 而 显著 增加 了 执行 总 时 间 。 这 个 运行 结果 也 强调 了 ， 在 这 种 特定 的 情况 下 ， 把 消 数 f1 和 f2 中 的 SELECT INTO 语 名 重新 放置 到 循环 体内 部 也 
不 会 改善 性 能 。 


254 R 


在 本 章 ， 我 们 了 解 了 PL/SQL 优 化 级 别 ， 并 且 学 到 了 PL/SQL 编 译 器 如 何 根 据 这 些 级 别 来 优化 代码 。 此 外 ， 我 们 还 探讨 了 子 程序 内 联 的 概念 ， 并 研究 了 
在 什么 情况 下 ， 它 可 航 用 来 改善 PHSQL 代 码 的 性 能 。 最 后 ， 你 学 会 了 如 何 利用 PLMSQL 刘 析 器 API 和 PL/SQL 层 次 式 剖 析 器 来 收集 和 解释 PL/SQL 运 行 时 统 
计 信息 。 把 这 些 优化 技术 与 诸如 批量 SQL 之 类 的 优化 万 法相 结合 ， 可 以 创建 强大 和 高 性 能 的 代码 。 


附录 APL/SQL 格 式 化 准则 


本 附录 总 结 了 整 本 书 中 使 用 的 一 些 PLUSQL 格 式 化 准则 。 虽 然 格 式 化 准则 并 不 是 PLUSQL 的 必需 部 分 ， 但 它们 可 作为 促进 开 友 质量 更 好 ， 具 有 更 好 的 可 
读 性 ， 并 且 更 容易 维护 的 代码 的 最 佳 实践 。 


大 小 瑟 


PL/SQL 与 SQL 一 样 ， 是 不 区 分 大 小 写 的 。 有 关 大 小 写 的 一 般 准 则 如 下 : 


. 关键 字 (例如 ，BEGIN、EXCEPTION、END、IF-THEN-ELSE、LOOP、END LOOP) 、 数 据 类 型 (例如 ，VARCHAR2、NUMBER) 、 内 置 函 


Ж (例如 ，LEAST、SUBSTR) ， 以 及 用 户 定义 的 子 程序 (例如 ， 过 程 、 函 数 、 包 ) 都 使 用 大 写 。 

. 变量 名 以 及 SQL 中 的 列 名 和 表 名 使 用 小 写 。 
空白 

TA (多余 的 行 和 空格 ) 在 PLUSQL 中 与 在 SQL 中 同样 重要 。 它 是 改善 可 读 性 的 一 个 主要 因素 。 换 名 话说， 你 可 以 通过 在 代码 中 使 用 适当 的 缩 进来 显 
示 程 序 的 逻辑 结构 。 下 面 是 一 些 建议 : 

. 在 等 号 或 比较 运算 符 的 两 侧 都 放置 空格 。 


. 将 结构 的 单词 靠 左 对 齐 〈 例 如 ，DECLARE、BEGIN、EXCEPTION 和 END，IFE 和 END IFE，LOOP 和 END LOOP) 。 此 外 ， 为 结构 内 的 结构 缩 进 
三 个 空格 〈 使 用 空格 键 ， 而 不 是 Tab 键 ) 。 


在 主要 部 分 之 间 放 置 空 行 ， 以 把 它们 互相 分 开 。 
. 把 同一 个 结构 的 不 同 逻 辑 部 分 放 在 单独 的 行 上 ， 即 使 结构 很 短 也 是 如 此 。 人 例如， 把 IF 和 THEN 放 置 在 一 行 上 ， 而 把 ELSE 和 END IF 放置 在 不 同 的 行 
Ès 


命名 约定 


为 了 确保 不 与 天 键 字 和 列 名 / 表 名 发 生 冲 突 ， 使 用 下 面 的 前 缀 是 有 帮助 的 : 


.con_ 和 常量 名 。 

-i in 参数 名 、o_out 参 数 名 、io_in_out 参 数 名 。 
с 游标 名 或 名 称 _cur。 

.tfc_ 引 用 游标 名 。 

-rt RKE ААК tec。 


· РОК г stud IN c_stud LOOPhttp://www.hzcourse.com/resource/readBook?path= /openresources/teach_ebook/uncompressed/15603/OEBPS/Text/... o 


· РОК stud тес IN stud_cur LOOP. 


type_ 名 称 或 名 称 _type (用 于 用 户 定义 的 类 型 ) 。 


` t_ 表 或 名 称 _tab (用 于 PL/SQL 表 ) o 


` fec_ 记 录 名 或 名 称 _rec (用 于 记录 变量 ) 。 


e HRA (АВРАХ) o 


包 的 名 称 应 该 是 包含 在 此 包 内 的 过 程 和 遂 数 执行 的 操作 的 更 大 的 环境 的 名 称 。 


过 程 的 名 称 应 该 是 由 此 过 程 执行 的 操作 的 说 明 。 冰 数 的 名 称 应 该 是 返回 变量 的 说 明 。 


示例 
PACKAGE student admin | 
-- admin 后 级 可 以 用 于 管理 (administration) 
PROCEDURE remove student (і student іа IN student.studid%TYPE).; 
FUNCTION student епго11 count (1 student іа student.studid%TYPE) 
RETURN ІМТЕСЕК; 
注释 


注释 在 PL/SQL 中 与 在 SQL 中 同样 重要 。 它 们 应 该 解释 程序 的 主要 部 分 和 任何 重要 的 逻辑 步 又 。 
使 用 单行 注释 “--” 而 不 是 多 行 “/*” 注 释 。 昌 然 PL/SQL 以 同样 的 方式 看 待 这 些 注释 ,但 一 旦 你 完成 了 代码 ， 这 么 做 会 更 容易 调试 ， 因 为 你 不 能 在 
多 行 注释 中 俯 入 多 行 注释 。 换 名 话说， 你 可 以 注释 挥 一 部 分 包含 单行 注释 的 代码 ， 但 你 不 能 注释 揉 一 部 分 包含 多 行 注释 的 代码 。 


其 他 建议 


这 里 有 一 些 额 外 的 小 建议 ， 以 帮助 你 确保 PL/SQL 代 码 整洁 且 易 于 理解 。 
` 对 于 能 入 在 PL/SQL 中 的 SQL 语句 ， 使 用 相同 的 格式 化 准则 来 确定 此 语句 应 如 何在 一 个 块 中 出 现 。 
提供 解释 块 的 意图 ， 并 列 出 创建 日 期 和 作者 姓名 的 注释 标题 。 并 为 每 次 修订 标明 作者 姓名 、 日 期 和 修订 说 明 。 


下 面 的 示例 展示 了 上 述 建议 。 请 注意 ， 它 也 使 用 了 使 格式 化 更 容易 的 等 宽 字 体 (ЖЖ) 。 按 比例 隅 开 的 字体 会 隐藏 空格 ， 使 对 齐 子 句 变 得 很 难 。 大 
多 数 文 本 和 编程 编辑 器 都 默认 使 用 等 宽 字 体 。 


示例 


REM 关 大 大 大 大 大 大 大 大 大 大 大 并 大 大 大 大 大 并 大 大 大 大 大 大大 大 大 大 大 并 大 大 大 大 大 并 大大 大大 大 大 大 大 大 大 大 大 大 大 大 大 大 并 大 


REM * 文件 名 : coursediscount01.sqgl ЖЖ: 1 
REM * 用 途 : 为 至 少 拥有 一 个 注册 学 生 数 超过 10 人 的 课 班 的 课程 提供 费用 折扣 
REM * 参数 : 无 
REM * 
КЕМ * 创建 者 : s.tashi НЯ: 2000 年 1 月 1 日 
КЕМ * 修改 者 : y.sonam 日 期 : 2000 年 2 月 1 日 
REM * 说 明 : 修复 游标 ， 添 加 缩 进 和 注 妓 
ГЕМ 米 淡淡 火炎 火炎 炎炎 火炎 火炎 次 火炎 炎炎 次 火炎 次 火灾 火炎 次 火炎 次 火炎 炎炎 炎炎 炎炎 火炎 次 火炎 火炎 炎炎 炎炎 火灾 火炎 炎炎 类 
DECLARE 
-- C_DISCOUNT_COURSE 找 出 至 少 拥有 一 个 注册 学 生 数 至 少 10 人 的 课 班 的 课程 清单 
CURSOR с discount course 15 
SELECT DISTINCT course no 
FROM section sect 
WHERE 10 <= (SELECT COUNT (*) 
FROM enrollment enr 
WHERE enr.section id = sect.section id 


t; 


-- 费用 超过 2000.00 美元 的 课程 的 折扣 率 
соп discount 2000 CONSTANT NUMBER := .90; 


-- 费用 在 1001.00 美元 与 2000.00 美元 之 间 的 课程 的 折扣 率 
соп discount other CONSTANT NUMBER := .95; 


у current course cost course.cost%TYPE; 
у discount а11 NUMBER; 
е update is problematic ЕХСЕРТТОМ; 
BEGIN 
-- 对 于 要 打折 扣 的 课程 ， 确 定 当 前 费用 和 新 的 费用 的 值 
FOR r discount course іп с discount course LOOP 
SELECT cost 
INTO v _ current course cost 
FROM course 
WHERE course no = r discount course.course no; 


IF v current course cost > 2000 THEN 
у discount all := con discount 2000; 
ELSE 
IF v current course cost > 1000 THEN 
v_discount_all := con discount other; 
ELSE 


v discount all := 1; 
END IF; 
END IF; 


BEGIN 
UPDATE course 
SET cost = cost * v discount all 
WHERE course_no = r discount course.course по; 
EXCEPTION 
WHEN OTHERS THEN 
RAISE е _update_is_ problematic; 


END; -- 更 新 记录 的 子 块 结束 
END LOOP; -- 主 循环 结束 
СОММТТ; 

ЕХСЕРТТОМ 


ИНЕМ e_update is problematic THEN 
-- 撤销 在 这 次 程序 运行 中 的 所 有 事务 
ROLLBACK; 
DBMS OUTPUT .PUT_LINE 
('There was a problem updating a course cost.'); 
WHEN OTHERS THEN 


NULL; 
END; 
/ 
附录 B 学 生 数 据 库 模式 
KRANS hi BH 


本 附录 列 出 了 本 书 所 使 用 的 STUDENT 数据 库 模 式 中 的 表 。 列 在 这 里 的 每 个 表 ， 首 先 都 显示 数据 库 表 名 ， 紧 跟着 的 是 在 此 表 中 的 列 、 是 人 否 允 许 空 值 的 
所 示 符 、 列 的 数据 类 型 ， 以 及 列 的 摘 述 。 安 委 此 数据 库 的 脚本 可 在 本 书 的 配套 网 站 找到 。 


COURSE: 一 门 课程 的 信息 


ДИ: 说 有明 
COURSE NO 唯一 的 诛 程 编号 
DESCRIPTION 本 课程 的 全 名 
COST 注册 本 诛 程 的 有 用 
PREREQUISITE ДИРЕН СВР ID 号 
CREATED_BY 审计 列 一 一 表明 插入 数据 的 用 户 
CREATED РАТЕ 审计 列 一 一 表明 数据 插入 的 日 期 
MODIFIED BY 审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
MODIFIED DATE 审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 


SECTION: 特定 课程 的 各 个 课 班 (班级) 的 信息 


I Е = 说 本 
SECTION ID NOT NULL NUMBER (8,0) 一 个 课 班 的 唯一 ID 
COURSE NO NOT NULL NUMBER (8,0) 这 个 课 班 的 课程 编号 


列 Ж 
ЅЕСТІОМ NO 
STRRT РАТЕ TIME 
LOCATION 
INSTRUCTOR Ір 
CAPACITY 
CREATED BY 
CREATED DATE 
MODIFIED BY 


MODIFIED РАТЕ 


列 
STUDENT_ID 


名 


SALUTATION 
FIRST NAME 
LAST NAME 
STREET ADDRESS 
ZIP 

PHONE 

EMPLOYER 


REGISTRATION DATE 


CREATED BY 
CREATED DATE 
MODIFIED BY 


MODIFIED DATE 


1 Ж 
STUDENT ID 
SECTION ID 
ENROLL DATE 
FINAL GRADE 
CREATED BY 
CREATED DATE 
MODIFIED BY 


MODIFIED DATE 


Ње =й 
NOT NULL 


NULL 
NULL 
NOT NULL 


NULL 


NOT NULL 


NOT NULL 


NOT NULL 


NOT NULL 


} 


/. 


Н 


NOT NULL 


NULL 


NULL 


NOT NULL 


NULL 


NOT NULL 


NULL 


NULL 


NOT NULL 


NOT NULL 


NOT NULL 


NOT NULL 


NOT NULL 


NUMBER (3) 


. $ ~ 
. IN 


TEE 
E| $ 
түң 


Ф 
7 


NUMBER (8,0) 
VARCHAR2 (5) 
УАВСНАР2 (25) 
VARCHAR2 (25) 
VARCHAR2 (50) 
VARCHAR2 (5) 
VARCHAR2 (15) 
VARCHAR2 (50) 
DATE 
VARCHAR2 (30) 
DATE 
VARCHAR2 (30) 


DATE 


(ЖЕ) 
说 
此 课程 的 各 个 课 班 编号 
这 个 课 班 开课 的 日 期 和 时 间 
这 个 课 班 的 教室 
讲授 这 个 课 班 的 教师 的 ID 号 
这 个 课 班 允许 的 最 多 学 生 人 数 
审计 列 一 一 表明 插入 数据 的 用 户 
审计 列 一 一 表明 数据 插入 的 日 期 
审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 


RH 


说 
某 个 学 生 的 唯一 ID 
这 名 学 生 的 称呼 (in, tt, wÆ, ËE) 
这 名 学 生 的 名 字 
这 名 学 生 的 姓 
这 名 学 生 的 街道 地 址 
这 名 学 生 的 邮政 编码 
这 名 学 生 的 电话 号 码 ， 包括 区 号 
这 名 学 生 就 业 的 公司 名 称 
这 名 学 生 注 册 本 项 目的 日 期 
审计 列 一 一 表明 插入 数据 的 用 户 
审计 列 一 一 表明 数据 插入 的 日 期 
审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 


明 


ENROLLMENT: 注册 了 一 门 特定 的 课程 的 特定 课 班 (班级 ) 的 学 生 信 息 


Н} 


т=п |=ү ја а |а ж 
>Ш 091010191916 | 06 
М. | а: Er d Ee 3 чүн |+ 
а|а|а|ар |&|а|уа 
Е ПЕТЕ == ем E 
Ее ЕЙ a E Е >. 


NUMBER (8,0) 
NUMBER (8,0) 
DATE 

NUMBER (3,0) 
VARCHAR2 (30) 
DATE 
VARCHAR2 (30) 


DATE 


INSTRUCTOR: 教师 档案 信息 


їй 明 


一 个 学 生 的 ID 

一 个 课 班 的 ID 

这 名 学 生 注册 本 课 班 的 日 期 

这 名 学 生 在 本 个 课 班 (班级 ) 上 取得 的 最 终 成 绩 
审计 列 一 一 表明 插入 数据 的 用 户 

审计 列 一 一 表明 数据 插入 的 日 期 

审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 


а. 


ПИЕ: и 
INSTRUCTOR ID 教师 的 唯一 ID 
SALUTATION 这 名 教师 的 称呼 (例如, 先生、 女士 、 博 士 、 牧 师 ) 
FIRST NAME 这 名 教师 的 名 字 
LAST МАМЕ 这 名 教师 的 姓 
STREET ADDRESS 这 名 教师 的 街道 地 址 
ZIP 这 名 教师 的 邮政 编码 
PHONE 这 名 教师 的 电话 号 码 ， 包 括 区 号 
CREATED BY 审计 列 一 一 表明 插入 数据 的 用 户 
CREATED DATE 审计 列 一 一 表明 数据 插入 的 日 期 
MODIFIED BY 审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
MODIFIED DATE 审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 


ZIPCODE: 城市 、 州 和 邮政 编码 信息 


ПШ: ГЕШ 
ZIP 邮政 编码 在 一 个 城市 和 州 中 唯一 
CITY 这 个 邮政 编码 所 在 的 城市 名 
STATE CAMEE 
CREATED BY 审计 列 一 一 表明 插入 数据 的 用 户 
CREATED_DATE 审计 列 一 一 表明 数据 插入 的 日 期 
MODIEIED_BY 审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
MODIFIED_DATE 审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 


GRADE_TYPE: 成 绩 类 别 (编号 ) 及 其 说 明 的 查找 表 


列 名 说 明 
GRADE_TYPE_CODE 表明 成 绩 类 别 的 唯一 代码 (例如, МТ. НУМ) 
DESCRIPTION 此 代码 的 说 明 (例如 ， 期 中 考 、 家 庭 作业 ) 
CREATED BY 审计 列 一 一 表明 插入 数据 的 用 户 
CREATED_DATE 审计 列 一 一 表明 数据 插入 的 日 期 
MODIFIED BY 审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
MODIFIED DATE 审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 


GRADE_TYPE_WEIGHT: 关于 特定 课 班 的 最 终 成 绩 如 何 计 算 的 信息 ， 例如， 在 最 终 成 绩 中 ， 期 中 考 占 50%， 测 验 占 10%， 而 期 末 考 试 占 40% 


ПИЕ: ТЕШ 
SECTION тр яви 


GRADE ТҮРЕ | т - 
тта Е 5 CHAR (2) 表明 革 个 成 绩 类 别 的 代码 


列 


NUMBER РЕК 


SECTION 


РЕКСЕМТ ОЕ 


FINAL GRADE 


 & | 
 & | 


NOT NULL NUMBER (3) 


. 


这 些 成 绩 类 别 有 多 
个 测验 ) 


一 本 成 绩 类 别 在 最 终 成 绩 中 的 比例 


(28) 


йй 
>и] FERRIE СВ пу НЕЗ = 


DROP LOWEST 决定 最 终 成 绩 时 ， 这 种 类 别 中 的 最 低 成 绩 会 被 
一 ксы 
СКЕАТЕР ВҮ 审计 列 一 一 表明 插入 数据 的 用 户 
CREATED_DATE 审计 列 一 一 表明 数据 插入 的 日 期 
MODIFIED BY 审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
MODIFIED DATE 审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 
GRADE: 一 个 学 生 从 一 个 特定 课 班 (班级 ) 获得 的 成 绩 
列 名 类 型 说 有明 
SECTION ID 一 个 课 班 的 了 
СЕАРЕ ТҮРЕ CODE СНАЕ (2) 用 于 标识 成 绩 类 别 的 代码 
GRADE CODE ЛТЖВЕН М л ЭФ 0 АЈ Л o И, a AEA 
OCCURRENCE | Рие 编号 1、2、3 等 的 多 个 分 配 
NUMERIC GRADE 分 数值 (例如 ，70、75 ) 
COMMENTS 教师 对 这 个 成 绩 的 注释 
CREATED BY 审计 列 一 一 表明 插入 数据 的 用 户 
CREATED DATE DATE 审计 列 一 一 表明 数据 插入 的 日 期 
MODIFIED_ BY 审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
MODIFIED DATE 审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 
GRADE_CONVERSION: 将 分 数 转换 为 字母 成 绩 
ДИ: 说 有 明 
LETTER GRADE 唯一 的 字母 成 绩 (A、A -、B、B+ 等 ) 


СЕАРЕ POINT 
МАХ GRADE 
MIN GRADE 
CREATED BY 
CREATED DATE 
MODIFIED BY 


MODIFIED DATE NOT NULL DATE 


图 B-1 所 示 的 学 生 模 式 的 表 的 实体 关系 图 使 用 标准 鱼尾纹 箭头 显示 了 这 些 表 及 其 外 键 天 系 。 


从 0 (F) 到 4 (А) 的 分 数 

对 应 于 该 字母 成 绩 的 最 高 分 数 

对 应 于 该 字母 成 绩 的 最 低 分 数 

审计 列 一 一 表明 插入 数据 的 用 户 

审计 列 一 一 表明 数据 插入 的 日 期 

审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 


GRADE CONVERSION 


LETTER GRADE (K) VARCHAF2I2) Р 
NUMBERI3.2) | DESCRPTION 
NMBER3.,0) ' CREATED BY 

NMGER3.0) NOT NUL CREATED САТЕ 
MCCIFED БҮ 


MCCIFED_DATE 


STUDENT D (FK FK) NUNMBER 3.0) 
стом DIBO(FO NURBER 8.0) 
GRADE жб ды. PKIO САҢ? GRADE ТҮРЕ ОЕ (аР CHARI 2) NOT NULL 
TOE эма. 2998 | NER РЕЗ SECTION NUMEER 3.0) NOTNULL 

_ NUMBER30) | PEACENT_OF FNAL_GRADE NJMBERI3.0) 


VARCHAR2/ 2000) 
VARCHAR 3O) 


Í STUDENT_D (PQ (FK) МАБ ҢЕЛ) NOT NUL 
| SECTION D (PQF) ммвеңед) 


START САТЕ TME DATE 
LOCATION VARCHAR2(50) 

| INSTRUCTOR О (FK) NUMBER80) NOT NULL 
NUMBERI3.0) NULL 
VARCHAR2(30) NOT NULL 
DATE NOT NULL 
VARCHAF2[30) NOT NULL 
DATE NOT NULL 


CDURSE NO(PK) NUMEERS.0) NOTNULL 
DESCRPTON VARCHAR2(S0) NOT NULL 

OST NUMEESR 3.2) NULL INSTRUCTOR_D(R) NJMESRS.0) 
КЕРЕШ ПЕ (РК) NMEERIS, O) NULL SALUTATION VARCHAR2{5) 
CREATED BY УАЯСНАЯ2(30) NOT NLL VARCHAF2I25) 
CREATED DATE СОАТЕ NOT NULL A VARCAA R2125) 
MDDFED 5Y VARCHAF2I30) NOT NULL Б) 
MDDFED DATE СОАТЕ NCT NULL 


RONE ZP (F) VARCHAFR2(5) NOT NULL 
VARCHAF2(50) STU ZP CTY VARCHARJ/25) NL 

STATE МАЯСЧАЯ2(2) NULL 
CREATED BY МАЯСНАЯ2(30) МОТ NULL 
CREATED DATE САТЕ 


VARCHAR2/30) МОТ NULL 


DATE NOT NULL 


图 B-1 


[1] 根据 课程 建立 的 班级 。 译 者 注 


